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Posta e telefono 


Riprendiamo in questo numero la posta ... “ferra¬ 
gostana”, dato che il numero esce in agosto. Il Di¬ 
rettore ha voluto prendersi le ferie e ha lasciato a 
noi della Redazione l’incarico di fare i convenevoli. 
Occorre chiarire, innanzitutto, il significato di bime¬ 
strale. Sapete tutti che vuol dire “ogni due mesi”. 
E così è. Diverso invece è il periodo di spedizione, 
che inizia normalmente nei primi giorni successivi 
alla scadenza. Un esempio chiarirà il concetto. 

Il numero 4 della rivista Laser Computer Club esce 
ad agosto. La spedizione inizierà i primi giorni di 
settembre. Potevamo, ad onor del vero, spedire il 
tutto alla fine di luglio (poste italiane permettendo, 
sapete come sono pignole), ma c’era il vago so¬ 
spetto che più di qualche postino fosse in ferie, e 
la rivista non venisse recapitata, o che più di qual¬ 
che abbonato fosse in vacanza da qualche altra 
parta d’Italia che non il suo solito luogo di residen¬ 
za, ed il rischio che la rivista venisse smarrita o ar¬ 


rivasse illeggibile era molto alto. 

Il concetto, tuttavia, vale anche per le altre spedi¬ 
zioni. Fate conto, tanto oer intenderci, che la rivi¬ 
sta esca regolarmente alla fine del mese (nel nostro 
caso, il 31 agosto). 

Chiarito il punto, entriamo direttamente nell’ango¬ 
lo della posta, che già da un numero langue in 
attesa. 

Ed iniziamo con Carrara Carlo, che ci fa i compli¬ 
menti per la rivista e vuole sapere se può inviare 
programmi di grafica. Naturalmente sono i benve¬ 
nuti. Da tempo la nostra rivista ha pubblicato pro¬ 
grammi di grafica, ma c’è spazio per tutti. Tu invia 
i tuoi listati e noi vedremo se pubblicarli (e lo fare¬ 
mo se programmi analoghi non sono già stati ospi¬ 
tati sulla rivista). Del resto Nembro (BG) è vicino a 
Como, e i programmi dovrebbero giungere in fretta. 
Scafi Raffaella di Camogli (GE) (bel posto, in que¬ 
sto periodo, non c’è che dire), dice di possedere 











un Laser 500 e di aver trovato errori nei listati “to¬ 
tocalcio” e “reversi’’ da tempo pubblicati. Chiede 
molto gentilmente di rivederli e di stampare sul pros¬ 
simo numero (sarebbe questo) l’“errata corrige”, 
la correzione degli errori. 

Prendiamo lo spunto da questa lettera per chiarire 
definitivamente il concetto di errore. "Errore” se¬ 
condo L’Oli-Devoto, il primo vocabolario che ci è 
capitato sotto mano, ha diverse interpretazioni: si¬ 
gnifica “abbandono della verità”, oppure “infrazio¬ 
ne nei confronti di una regola o di una consuetudi¬ 
ne”, oppure “azione inopportuna o svantaggiosa”, 
oppure ancora “differenza fra valore vero e quello 
misurato” (tra cui rientra anche l’errore accidentale). 
Supponiamo che il concetto espresso da Raffaella 
sia legato a quest'ultima interpretazione del voca¬ 
bolo “errore”. E ad essere del tutto sinceri ci sta 
benissimo: se qualcosa misurato si discosta da 
quello che è il valore vero, significa che c’è stato 
un errore. E qui nasce il problema. Ovverossia, co¬ 
me nel caso di “reversi”, sono già stati pubblicati 
degli “errata corrige”. Infatti ci erano stati segna¬ 
lati. Raffaella purtroppo non ci segnala quali errori 
ha riscontrato. Ad esempio: poteva dire che alla 
riga xyz trova l’errore “return without gosub”. In 
altre parole, e questo vale per tutti: siamo ben di¬ 
sponibili a correggere gli errori dei listati che, per 
quanto attentamente guardati, possono presenta¬ 
re imperfezioni. Ma chiediamo a tutti voi di darci 
una mano, segnalando dove si trova l’errore e, non 
male come idea, secondo voi come andrebbe 
corretto. 

Qualcuno si lamenta perchè riceve la rivista con 
due o tre mesi di ritardo, o addirittura saltano dei 
numeri. 

Calcolando anche il mese di emissione, a qualcu¬ 
no in effetti la rivista arriva due mesi dopo. Esem¬ 
pio: calcolando anche agosto, chi la riceve a fine 
settembre, e succederà, ha atteso due mesi. Ab¬ 
biamo chiarito più sopra che noi spediamo scadu¬ 
to il termine di copertina. 

Per quanto riguarda invece il non ricevere alcuni 
numeri, se sono recentissimi (l’ultimo in stampa, per 
intenderci), è molto probabile che ci sia un diffe¬ 
rente calcolo dei tempi tra la redazione e l’abbo¬ 
nato. Se invece il numero è vecchio, i casi sono 
due: o il versamento per l’abbonamento è giunto 
quando già era stato spedito quel numero, e allo¬ 
ra significa che l’abbonamento stesso decorre dal 
numero seguente e per sei numeri, o che effettiva¬ 
mente non è mai giunto. Nel qual caso siamo pronti 
a rispedirlo, ed è già successo diverse volte. Ma 
non per questo ci dovete scrivere che non inten¬ 
dete rinnovare l’abbonamento a causa di questi di¬ 
sguidi. Il nuovo editore ha in programma una ristrut¬ 
turazione in senso positivo della testata e i benefici 


3r Posta e telefono 

non si faranno attendere. Viale Ruggero di Chiog- 
gia (VE) vuole programmi che riguardino le previ¬ 
sioni del tempo e la meteorologia. Confessiamo 
candidamente che non ci avevamo mai pensato. 
In realtà, considerato che anche le televisioni uffi¬ 
ciali trasmettono previsioni del tempo con l’aiuto di 
elaboratori elettronici (e che fior fiore di elaborato¬ 
ri), aiutati da satelliti geostazionari sofisticatissimi, 
e che pure parecchie volte fanno cilecca, ritene¬ 
vamo che la materia non fosse pane per i denti di 
un Laser 500, e tanto meno di un 310. E più ci pen¬ 
siamo, più riteniamo irrealizzabile il progetto. 

C’è poi la simpatica lettera di Viola Lorenzo, Torri 
di Quartesolo (VI). Lo rassicuriamo subito sulla cas¬ 
setta “Laser 500 Paint utility”. Avevamo riscontra¬ 
to alcune difficoltà di caricamento, segnalate da al¬ 
cune parti. Abbiamo quindi deciso di pubblicare 
quasi interamente il programma per permettere a 
chiunque di digitarlo e salvarlo sul proprio nastro 
attraverso il proprio registratore, e togliere quegli 
inconvenienti di caricamento. 

Per quanto riguarda le riparazioni del Laser 500, 
bisogna proprio dire che il club è davvero esclusi¬ 
vo. Infatti i computer Laser, benché diffusi in oltre 
10.000 unità in Italia, non sono commercializzati da 
altri importatori, e dunque le riparazioni sono fatti¬ 
bili solo presso le sedi locali della Multididact. Tut¬ 
tavia, il mezzo più veloce è quello di inviare il com¬ 
puter a Como, specificando chiaramente il guasto: 
i nostri prezzi sono ridotti al puro costo di ripa¬ 
razione. 

E veniamo alle domande specifiche. 

La rivista fa fatica ad uscire ogni due mesi, figuria¬ 
moci renderla mensile o bisettimanale. L'idea ci era 
già venuta (renderla mensile), ma c’è carenza di 
software interessante da pubblicare. Se i club sor¬ 
ti intendessero davvero collaborare il discorso 
“mensile” si potrebbe proprio fare. 

Il software pubblicizzato nelle ultime pagine subi¬ 
rà una radicale trasformazione nell’ultimo numero 
(per Natale). 

La light pen e il software relativo non hanno molta 
richiesta: innanzitutto perchè la periferica legge solo 
a video, e dunque non è uno strumento tipo “co¬ 
dice a barre”, e poi perchè, detto fra noi, non è 
nemmeno molto diffusa tra i possessori di Laser. 

I lettori in provincia di Vicenza che possiedono il 
Laser 500 ci sono: invece che fornirti gli indirizzi, 
pubblichiamo, se permetti, il tuo, in modo che pos¬ 
sano mettersi in contatto con te. E chissà mai che 
non nasca il primo Laser Club del Veneto. 
Chiunque è interessato, quindi, scriva a Viola Lo¬ 
renzo, Via Monte Grappa 8, 36040 Torri di Quar¬ 
tesolo (VI). 

Al prossimo numero. 

E il turbo? 


1 
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Nilll PER LASER 500/310/210/110 


Si tratta di un giochet¬ 
to che si fa con un cer¬ 
to numero di cerini e 
due giocatori, Compu¬ 
ter e persona. 

Il NIM è un gioco deter¬ 


ministico nel senso che 
esiste la possibilità di 
stabilire in qualsiasi 
momento chi dei due 
giocatori vince o può 
vincere. 


Le regole sono sem¬ 
plici. 

Si parte con un nume¬ 
ro di cerini disposti sul 
tavolo (minimo tre). 

I giocatori possono pre¬ 


levare a turno un nu¬ 
mero massimo di ceri¬ 
ni non superiore alla 
metà. Perde chi rima¬ 
ne per ultimo con un 
solo cerino. 


io ’tHtttmmtttttmmtimtimti 

20 ’*** NIM GIOCO DEI CERINI *** 

30 ’*** LISTATO PER LASER 310 **# 

40 ’*** DI ROBERTO B. *** 

50 'f*********************^*********** 

60 CLS 

180 INPUT "CONOSCI GIÀ * LE REGOLE";R$ 

190 IF R$="S" THEN 300 
200 CLS 

210 PRINT "IL GIOCO DEL NIM SI GIOCA CON QUANTI CERINI VUOI." 
230 PRINT "OGNI GIOCATORE FA UNA PRESA A TURNO" 

240 PRINT "TOGLIERE DAL TAVOLO UN NUMERO DI CERINI, PURCHÉ'" 

250 PRINT "IFERIORE 0 UGUALE ALLA META' DEI CERINI PRSENTI" 

260 PRINT 

280 PRINTSPRINT "PERDE CHI RESTA CON UN SOLO CERINO. AUGURI" 

290 PRINT:PRINT "PER CONTINUARE PREMI RETURN " 5 :INPUT R* 

300 CLS 

310 PRINT "IL GIOCO DEL NIM !!!" 

320 PRINT:INPUT "QUANTI CERINI VUOI PER GIOCARE (MAX 100)";N 
330 IF N<=0 OR N>100 THEN PRINT "RISPETTARE LE REGOLE":GOTO 320 
340 IF N< =2 THEN PRINT "ALLORA NON CI SIAMO CAPI TI?":GOTO 320 
350 PRINT -.INPUT "VUOI MUOVERE TU PER PRIMO " 5 R* 

360 IF R*="S" THEN GOTO 470 ELSE IF R*<>"N" THEN GOTO 350 

370 IF N>63 THEN P2=63:G0T0 430 

380 IF N>31 THEN P2=31:G0T0 430 

390 IF NMS THEN P2=15: GOTO 430 

400 IF N>7 THEN P2=7:G0T0 430 

410 IF N>3 THEN P2=3:G0T0 430 

420 P2=l 

*30 IF P2<(N/2) THEN P2=P2+1:G0T0 430 

440 PRINTSPRINT "TOLGO ";N-P2;" CERINI, E NE RESTANO " 5 P 25 
450 N=P2 

460 IF P2=1 THEN GOTO 590 

470 PRINT:PRINT "ORA TOCCA A TE LA MOSSA..." 

480 INPUT "...QUANTI CERINI HAI DECISO DI TOGLIERE " 5 PI 
490 IF P1<=0 THEN PRINT "SEI PROPRIO UN BEL TIPO!";sGOTO 480 
500 *N1»<N MOD 2) 

510 IF P1X<N-Nl)/2) THEN PRINT "NON E' PSSIBILE ": GOTO 480 
520 PRINT "RESTANO " 5 N-PI 5 " CERINI" 

530 N=N-P1 

540 IF N=1 THEN GOTO 560 
550 GOTO 370 

560 PRINTSPRINT "BRAVO, VISIO CHE PUOI VINCERE ANCHE TU!" 

570 PRINT "RITENTA, TI POTREBBE ANDARE DI NUOVO BENE" 

580 GOTO 610 

590 PRINT:PRINT "NATURALMENTE SONO UN COMPIUTER" 

600 PRINT "MI PIACE VINCERE !!!" 

610 PRINTsINPUT "VUGI GIOCARE UN' ALTRA PARTITA CON ME";R* 

620 IF R*="S" THEN GOTO 300 
630 IF R*<>"N" THEN 610 

640 PRINT "CIAO E' STATO UN VERO PIACERE GIOCARE CON TE" 

650 END 
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io ’ttttttttttttttttttttttttttttttttttt 

20 ’ttt HIM GIOCO DEI CERINI ttt 

30 'Iti LISTATO PER LASER 500 ttt 

40 ’ttt DI ROBERTO B. ttt 

50 ’ttttttttttttttttttttttttttttttttttt 

60 ’ 

180 TEXT 80:CLS:PR1NT : INPUT -CONOSCI 6IA' LE RE60LE";R$ 

190 IF R$=*S" THEN 300 
200 CLS 

210 PRINT "IL GIOCO DEL NIN SI 6I0CA CON QUANTI CERINI VUOI. 1 

220 PRINT *AL POSTO DEI CERINI PUOI USARE QUALUNQUE TIPO DI 066ETTQ." 

230 PRINT "06NI GIOCATORE FA UNA PRESA A TURNO: UNA PRESA CONSISTE NEL" 

240 PRINT "TOGLIERE DAL TAVOLO UN QUALSIASI NUMERO DI CERINI, PURCHÉ 1 " 

250 PRINT "1FERIORE 0 UGUALE ALLA META c DEI CERINI CHE SONO SUL TAVOLO." 

260 PRINT "SE VI E 1 UN NUMERO DISPARI DI CERINI NON SI TAGLIA UN CERINO A" 

270 PRINT "META 1 , HA SI PRENDONO AL HASSIHO LA META 1 HENO... HE2Z0 CERINO." 

280 PRINT:PRINT "PERDE CHI RESTA CON UN SOLO CERINO. AUGURI !!!" 

290 PRINT:PRINT "PER CONTINUARE PREHI RETURN "jsLINE INPUT R$ 

300 CLS 

310 PRINT "IL GIOCO DEL NIH !!!" 

320 PRINT:INPUT "CON QUANTI CERINI DESIDERI GIOCARE «HAI 100)";N 

330 IF N<=0 OR N>100 THEN PR1NT-.PRINT CERCHIAMO DI RISPETTARE LE REGOLE !":60T0 320 

340 IF N<=2 THEN PRINT "HA ALLORA NON CI SIHO CAPITI ?":GOTO 320 

350 PRINT : INPUT "VUOI MUOVERE TU PER PRIMO ";R$ 

360 IF R$="S" THEN GOTO 470 ELSE IF R$<>"N" THEN GOTO 350 

370 IF N>63 THEN P2=63:6QTQ 430 

380 IF N>31 THEN P2=31:G0T0 430 

390 IF N>15 THEN P2=15:60T0 430 

400 IF N>7 THEN P2=7:G0T0 430 

410 IF N>3 THEN P2=3:GQT0 430 

420 P2=l 

430 IF P2<(N/2) THEN P2=P24l:60T0 430 

440 PRINT:PRINT "TOLGO ";N-P2;" CERINI, E NE RESTANO ";P2;" SUL TAVOLO" 

450 N=P2 

460 IF P2=l THEN GOTO 590 

470 PRINT:PRINT "ORA TOCCA A TE LA MOSSA..." 

480 INPUT "...QUANTI CERINI HAI DECISO DI T06LIERE ";P1 

490 IF PI<=0 THEN PRINT "SEI PROPRIO UN BEL TIPO!":PRINT "ALLORA ";:6OT0 480 

500 ’N1=(N MOD 2) 

510 IF Pl>((N-Nl)/2) THEN PRINT "TIZZONE, NON PIU 1 DELLA META 1 CAPITO ? ORA DIMMI...":60T0 480 
520 PRINT "RESTANO ";M“P1;" CERINI" 

530 N=N-P1 

540 IF N=1 THEN GOTO 560 
550 GOTO 370 

560 PRINT:PRINT "BRAVO, VISTO CHE PUOI VINCERE ANCHE TU!" 

570 PRINT "RITENTA, TI POTREBBE ANDARE DI NUOVO BENE" 

580 GOTO 610 

590 PRINT:PRINT "NATURALMENTE SONO UN C0MP1UTER" 

600 PRINT "HI PIACE VINCERE !!!" 

610 PRINT:INPUT "VUOI GIOCARE UN’ ALTRA PARTITA CON HE";R$ 

620 IF R$="S" THEN 60T0 300 
630 IF R$<>"N" THEN 610 

640 PRINT "CIAO E* STATO UN VERO PIACERE GIOCARE CON TE" 

650 END 
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Atterraggio 

strumentale per Laser 310 


Lo scopo del gioco è di 
far atterrare una nave 
spaziale sopra una del¬ 
le tre basi situate so¬ 
pra la piattaforma, uti¬ 
lizzando i tasti del cur¬ 
sore freccia a destra 
per spostare l'astrona¬ 
ve verso destra, e la 
freccia di sinistra per 
spostare l'astronave a 
sinistra, mentre la 
freccia in sù sposta 
verso l'alto l’astrona¬ 
ve. 

La piattaforma è dise¬ 
gnata utilizzando i ca¬ 
ratteri (X) e (?), la base 
con il CHR$(159). 

Il punteggio viene vi¬ 
sualizzato in alto a si¬ 
nistra del video. 
Ovviamente se state 
sospesi in aria consu¬ 
mate carburante e, al¬ 
l'esaurimento di que¬ 
sto perdete il control¬ 
lo dell'astronave. 

Ciò avviene anche se 
mancate una delle ba¬ 
si. Il gioco ricomincia 
premendo il tasto RE¬ 
TURN. 

L'animazione grafica 
viene effettuata so¬ 
vrapponendo rapida¬ 
mente la stampa del¬ 
l'astronave nella posi¬ 
zione attuale alla vec¬ 
chia posizione. 


IO ’************************** 

20 ’** ATTERRAGGIO STRUMEN. ** 

30 '««LISTATO PER LASER 310»* 

40 ’«» DI SIMONE B. *« 

50 ’******»******«************ 

60 ’ 

101 REM 

103 SC=0iS=20 

110 CLS:GOSUB 600 

115 PRINT30,"CARBURANTE LITRI "jS 

117 PRINT332,"PUNTI.. SC 

120 PRINT3<Y*32)+X," '• 

130 PRINT3(Y*32)+32+X," (#> “ 

135 XX*=INKEY* 

140 IP XX*="M" THEN X=X-1 

150 IF XX*=",“ THEN X=X+1 

160 IF XX*=".“ THEN T=Y-liGOTO 400 

170 IF X<=-1 THEN X=0 

1B0 IF X>=28 THEN X=2B 

190 Y=Y+1:FOR A=0 TO 10:NEXT 

200 IF Y=12 THEN GOTO 500 

210 GOTO 120 

400 PRINT3 <Y*32)+64+X," * » 

405 PRINT3(Y*32)+96+X," « 

419 S=S-2’CARBURANTE 

420 IFS=-2 THEN GOTO BOO 
430 GOTO 115 

500 IF NOT <X—1 OR X=ll OR X=21) THEN 800 

510 IF X=1 THEN SC=SC+200 

520 IF X=ll THEN SC=SC+100 

530 IF X=21 THEN SOSC+150 

540 PRINT3(32*10)+10 f "BEN FATTO" 

550 FOR A=0 TO 1000:NEXT 

560 CLS 

570 GOTO 110 

600 PRINTS) ( 14*32) , "XX200XXXXXXX1OOXX XXXXX 150X X " 
610 X=INT<RND<15)+1) 

620 Y=2 

630 FRI NT a) (13*32) , "-^-^-~_» 

660 RETURN 

800 PRINT3<32*Y)+X," 

810 PRINTS) (32*Y)+32+X, " (#) " 

820 Y=Y+1:FOR A=0 TO 10:NEXT 

830 IF Y=13 THEN 900 

840 PRINTS) (32*5) +8, "PERICOLO" 

850 FOR N=1 TO 10:NEXT 
870 PRINTS) (32*5)+8, " 

880 GOTO BOO 

900 FOR Q=0 TO 400:NEXT:CLS 

910 PRINTS) (32*5) +8, "MISSIONE FALLITA" 

915 PRINTS) (32*6)+8, " PUNTI =";SC 
920 FOR N=1 TO 10:NEXT 
940 PRINTS) (32*7)+8, } 

945 INPUT"PREMERE RETURN";WW* 

1000 CLS:RUN 
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Atterraggio 

strumentale per Laser 500 


Lo scopo del gioco è di 
far atterrare una nave 
spaziale sopra una del¬ 
le tre basi situate so¬ 
pra la piattaforma, uti¬ 
lizzando i tasti del cur¬ 
sore freccia a destra 
per spostare l'astrona¬ 
ve verso destra, e la 
freccia di sinistra per 
spostare l'astronave a 
sinistra, mentre la 
freccia in sù sposta 
verso l'alto l'astrona¬ 
ve. 

La piattaforma è dise¬ 
gnata utilizzando i ca¬ 
ratteri (X) e (?), la base 
con il CHR$(159). 

Il punteggio viene vi¬ 
sualizzato in alto a si¬ 
nistra del video. 
Ovviamente se state 
sospesi in aria consu¬ 
mate carburante e. al¬ 
l'esaurimento di que¬ 
sto perdete il control¬ 
lo dell'astronave. 

Ciò avviene anche se 
mancate una delle ba¬ 
si. Il gioco ricomincia 
premendo il tasto RE¬ 
TURN. 

L'animazione grafica 
viene effettuata so¬ 
vrapponendo rapida¬ 
mente la stampa del¬ 
l'astronave nella posi¬ 
zione attuale alla vec¬ 
chia posizione. 


VARIABILI USATE: 

SC = punteggio 
S = carburante 
DEF FN P$ = locazione 
X e Y del cursore 
XX = lett. dei tasti 
cursori. 


IO ’***************************************** 

20 ’ **** ATTERRAGGIO STRUMENTALE **** 

30 ***** LISTATO PER LASER 500 **** 

40 ***** di SIMONE B. **** 

50 ****************************************** 

60 ’ 

100 DEF FN PS(X,Y)=CHRS<27>+CHRS<161)+CHRS<32+X)+CHRS<32+Y> 
110 SC=0:S=20:CLS:RANDOMIZE 
120 GOSUB 390 

130 PRINT FN PS(0,0);"CARBURANTE LITRI ";S 

140 PRINT FN PS <0, 1 ) ; "PUNTI. " ; SC 

150 PRINT FN PS(X,Y);" 

160 PRINT FN PS<X,Y+1);" <-> " 

170 XY=PEEK(&H85F0) 

180 IF XY=34 THEN X=X-1 

190 IF XY=22 THEN X=X+1 

200 IF XY=46 THEN Y=Y-1:G0T0 260 

210 IF X<=-1 THEN X=0 

220 IF X >=28 THEN X=28 

230 Y—Y+1 :FOR A=0 TO lOsNEXT 

240 IF Y=18 THEN 310 

250 GOTO 150 

260 PRINT FN PS(X,Y+2) 5 M * " 

270 PRINT FN PS(X,Y+3);" 

280 S=S-2 

290 IF S=-2 THEN 460 
300 GOTO 130 

310 IF NOT <X=1 OR X=ll OR X=21> THEN GOTO 460 

320 IF X=1 THEN SC=SC+200 

330 IF X=11 THEN SC=SC+100 

340 IF X=21 THEN SC=SC+150 

350 PRINT FN PS(10,10);"BEN FATTO!" 

360 FOR A=1 TO 1000:NEXT 

370 CLS 

380 GOTO 120 

390 PRINT FN PS(0,22); STRINGS<27,CHRS<159)> 

400 X=*INT (RND < 1 ) *27) +1 
410 Y—2 

420 PRINT FN PS(0,19) 5 " ~ ~ 

430 PRINT FN PS(0,20) 5 "XXXXXXXXXXXXXXXXXXXXXXXXXXX" 

440 PRINT FN PS(O,21);"200 100 150" 

450 RETURN 

460 PRINT FN PS(X+1,Y); " 

470 PRINT FN PS < X + l,Y+l);" <-> " 

480 Y=Y+1 :FOR A=0 TO 10:NEXT 

490 IF Y=19 THEN 540 

500 PRINT FN PS(10,IO);"PERICOLO" 

510 FOR N-1 TO 10:NEXT N 
520 PRINT FN PS(10,10);“ 

530 GOTO 460 
540 REM 

550 PRINT FN PS< 8 ,10) 5 "MISSIONE FALLITA" 

560 PRINT FN PS(10,12);"PUNTI = ";SC 
570 PRINT FN PS(9,14);"PREMI RETURN"; 

580 FOR N=1 TO 10:NEXT N 
590 LINE INPUT ;WWS 
600 CLS:RUN 
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Il labirinto 

Stregato per Laser 500-310 


È un gioco molto simi¬ 
le ad una adventure. e 
pur basandosi sulle ca¬ 
sualità di sorte,è assai 
divertente e completo! 
Ecco di cosa si tratta: 
dovete attraversare 


un complesso labirinto 
costituito da dieci 
stanze principali e da 
un'infinità di cunicoli. 
La difficoltà non consi¬ 
ste solamente nell'arri- 
vare all'uscita: durante 


il percorso, infatti, in¬ 
contrerete mostri, 
ostacoli oppure il fol¬ 
letto e la principessa 
che verranno in vostro 
aiuto: all'inizio avete 
con voi trenta pezzi 


d'oro; dovete conser¬ 
varne almeno 25 pez¬ 
zi da donare all'uscita 
al signore del labirinto, 
se non avrete pezzi a 
sufficienza verrete di¬ 
vorati. 


IO 

’ ********************** *************** 

510 

PRINT 


20 

*** 

IL LABIRINTO 

*** 

520 

K=INT(RND(1)*4)+2 


30 

*** 

LISTATO PER LASER 500 

*** 

530 

PRINT "DI FRONTE CI SONO " 

5K 

40 

*** 

di ENRICO M. 

tt* 

540 

PRINT "PORTE QUALE VUOI APRIRE "5 

50 

'***t*t*t****ttt********** ************ 

550 

INPUT A 


60 




560 

IF A>K THEN GOTO 550 


100 

TEXT 40s CLS:S=30 


570 

GOSUB 1180 


110 

GOSUB 

1180 


580 

IF RND<.1 THEN GOSUB 870 


120 

x=o 



590 

IF AOK THEN GOSUB 610 


130 

S=30 



600 

IF A=K THEN GOSUB 870 


140 

W=1 :RANDOMIZ E 


610 

K=INT(RND(1)♦4) 


150 

FRI NT 

"SEI ALL’INGRESSO DI UN" 


620 

IF K=0 THEN E*=" MOSTRO " 


160 

FRI NT 

"LABIRINTO PIENO DI CUNICOLI 

11 

£>30 

IF K=1 THEN ES=" MAGO " 


170 

PRINT 

"CHE SI INTRECCIANO, E NEL" 


640 

IF K=2 THEN ES=" FANTASMA " 


180 

FRI NT 

"QUALE CI SONO DIECI STANZE" 


650 

IF K=3 THEN E*=" GUARDIANO 

•• 

190 

PRINT 


660 

PRINT "SCICCO TI SEI FATTO 

VEDERE" 

200 

LINE INPUT "FREMI RETURN ":X* 


670 

PRINT "DA UN "5 


210 

CLS 



680 

E=INT(RND(1)*4) 


220 

GOSUB 

1 180 


690 

IF E=0 THEN F*=" PUGNALE " 


230 

PRINT 

"HAI CON TE TRENTA PEZZI D’ORO" 

700 

IF E=1 THEN F*=" SPADA " 


240 

PRINT 

"SUL TUO CAMMINO INCONTRERAI 

11 

710 

IF E=2 THEN F*=" CLAVA " 


250 

PRINT 

"VARI MOSTRI CE LOTTERANNO" 


720 

IF E=3 THEN F*=" CATENA " 


260 

PRINT 

"CON TE, 0 LA PRINCIPESSA CHE" 

730 

PRINT E*;" ARMATO DI ";F* 


270 

PRINT 

"VERRÀ IN TUO AIUTO-" 


740 

PRINT 


280 

PRINT 

"POTRAI PERDERE PARTE DEL TUO" 

750 

PRINT "BISOGNA COMBATTERE" 


290 

PRINT 

"TESORO 0 VINCERE ALTRO ORO" 


760 

PRINT "QUALE ARMA SCEGLI ?" 


300 

PRINT: 

LINE INPUT "PREMI RETURN ":X* 

770 

PRINT " UN BASTONE (1)" 


310 

CLS 



780 

PRINT " UNA SPADA (2)" 


320 

GOSUB 

1180 


790 

PRINT " UNA CATENA (3)" 


330 

PRINT 

"L’IMPORTANTE E * GUNGERE " 


800 

INPUT "COSA SCEGLI ";B 


340 

PRINT 

"ALL’USCITA, CON ALMENO 25" 


810 

IF B<1 OR B>3 THEN GOTO 800 


350 

PRINT 

"PEZZI D’ORO DA DONARE AL" 


820 

C=INT < RND(1)* 3)+1 


360 

PRINT 

"AL SIGNORE DEL LABIRINTO" 


830 

GOSUB 1180 


370 

PRINT 

"ALTRIMENTI SARAI MANGIATO" 


840 

IF B=C THEN GOSUB 1370 


380 

PRINT 

"BUONA FORTUNA !"SPRINT 


850 

IF BOC THEN GOSUB 1430 


390 

LINE INPUT "PREMI IL TASTO RETURN" 

; QUO$ 

860 

GOTO 390 


400 

RANDOMIZE 


870 

K=INT(RND <1)* 4) 


410 

IF W<1 

THEN W=1 


880 

IF K=0 THEN GOSUB 930 


420 

IF W>10 THEN W=10 


890 

IF K—1 THEN GOSUB 970 


430 

IF W=10 THEN GOTO 1220 


900 

IF K=2 THEN GOSUB 1020 


440 

GOSUB 

1180 


910 

IF K=3 THEN GOSUB 1070 


450 

PRINT 

"QUESTA E LA STANZA NUMERO " 

;W 

920 

GOTO 390 


460 

PRINT 

:X = X +1 


930 

PRINT "SEI CADUTO IN UNA BOTOLA " 

470 

PRINT 

"QUESTA E LA MOSSA NUMERO "5 

X 

940 

W=W-1:PRINT "FORSE PERDERAI 

DELL’ORO" 

480 

PRINT 



'950 

S=S-INT(RND <1)*2)-1 


490 

IF S<1 

THEN S=5 


960 

RETURN 


500 

PRINT 

"HAI ";S 5 " PEZZI D’ORO " 


970 

PRINT "UN MURO DI FIAMME TI 

BLOCCA" 
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980 FRINT "DEVI TORNARE INDIETRO !" 

990 W=W-1 

1000 S=S-INT(RND <1)*2)—1 
1010 RETURN 

1020 PRINT "LA PRINCIPESSA TI GUIDA E.." 
1030 PRINT "FORSE RICEVERAI DELL’ORO" 

1040 S=S+INT(RND(1)*5)+1 
1050 W=W+INT(RND <1)*3)+1 
1060 RETURN 

1070 PRINT "IN FOLLETTO TI PORTA AD UNO" 
1080 PRINT "SCRIGNO CONTENENTE 5 PEZZI " 
1090 PRINT "D’ORO. QUANDO TU HAI DECISO" 
1100 PRINT "QUANTO PRENDERE IL FOLLETTO" 

1110 PRINT "TI ACCOMPAGNERA '." 

1120 PRINT 

1130 INPUT "QUANTI PEZZI D’ORO PRENDI ";0 
1140 IF 0>5 OR 0<1 THEN GOTO 1130 
1150 S=S+0 
1160 W=W—INT <0/2) 

1170 RETURN 
1180 Cl.S 

1190 IF S<0 THEN S=0 

1200 PRINT » LABIRINTO":PRINT 

1210 RETURN 

1220 PRINT "SEI ALL’USCITA !" 

1230 PRINT "HAI ORO A SUFFICIENZA ?" 


1240 PRINT "PREMI RETURN PER SCOPRIRLO"; 

1250 LINE INPUT C$ 

1260 CLS 

1270 IF S>24 THEN GOTO 1320 

1280 IF S<24 THEN PRINT "SEI STATO DIVORATO" 
1290 PRINT "CON ";S;" PEZZI D'ORO" 

1300 FOR D=0 TO 60:NEXT 

1310 IF S<25 THEN GOTO 1500 
1320 PRINT "SEI SALVO •!" 

1330 PRINT "CON " 5 S 5 " PEZZI D’ORO" 

1340 PRINT "IN " ; X ;" MOSSE" 

1350 FOR D=0 TO 60:NEXT 
1360 GOTO 1500 

1370 PRINT "TU BATTI IL ";E* 

1380 S=S+INT(RND(1)*3)+1 

1390 PRINT "ED HAI ";S;" PEZZI D’ORO" 

1400 W=W+INT(RND <1)*4)+1 

1410 PRINT "SEI VICINO ALLA STANZA N.";W 
1420 RETURN 

1430 PRINT "E IL ";E*;" TI BATTE !!!" 

1440 S=S—INT(RND(1)* 4) — 1 

1450 PRINT "TI RESTANO ";S;" PEZZI D'ORO" 
1460 W=W--1 

1470 IF W<1 THEN W=1 

1480 PRINT "RITORNA ALLA STANZA N.";W 
1490 RETURN 
1500 CLS 


10 •'* ***************** ******* ** t ********* 410 
20 ’*** IL LABIRINTO *** 420 
30 ’*** LISTATO PER LASER 310 *** 430 
40 ’*** di ENRICO M. *** 440 
50 ’*«************************»********** 450 
60 ’ 460 
100 CLS:S=30 470 
110 GOSUB 1180 480 
120 X=0 490 
130 S=30 500 
140 W=1 510 
150 PRINT "SEI ALL’INGRESSO DI UN" 520 
160 PRINT "LABIRINTO PIENO DI CUNICOLI" 530 
170 PRINT "CHE SI INTRECCIANO, E NEL" 540 
180 PRINT "QUALE CI SONO DIECI STANZE" 550 
190 PRINT 560 
200 INPUT "PREMI RETURN ";X* 570 
210 CLS 580 
220 GOSUB 1180 590 
230 PRINT "HAI CON TE TRENTA PEZZI D'ORO" 6 00 
240 PRINT "SUL TUO CAMMINO INCONTRERAI" 610 
250 PRINT "VARI MOSTRI CE LOTTERANNO" 620 
260 PRINT "CON TE, 0 LA PRINCIPESSA CHE" 630 
270 PRINT "VERRÀ IN TUO AIUTO." 640 
280 PRINT "POTRAI PERDERE PARTE DEL TUO" 650 
290 PRINT "TESORO O VINCERE ALTRO ORO" 660 
300 PRINT:INPUT "PREMI RETURN " 5 X* 670 
310 CLS 680 
320 GOSUB 1180 690 
330 PRINT "L’IMPORTANTE E % GUNGERE " 70 0 
340 PRINT "ALL’USCITA, CON ALMENO 25" 7 iq 
350 PRINT "PEZZI D’ORO DA DONARE AL" 72 0 
360 PRINT "AL SIGNORE DEL LABIRINTO" 730 
370 PRINT "ALTRIMENTI SARAI MANGIATO" 740 
380 PRINT "BUONA FORTUNA !"SPRINT 750 
390 INPUT "PREMI IL TASTO RETURN";QUO$ 760 
400 SOUND 1,1 770 


IF W<1 THEN W=1 
IF W>10 THEN W=10 
IF W=10 THEN GOTO 1220 
GOSUB 1180 

PRINT "QUESTA E LA STANZA NUMERO ";W 
PRINT :X=X+1 

PRINT "QUESTA E LA MOSSA NUMERO ";X 
PRINT 

IF S<1 THEN S=5 

PRINT "HAI " 5 S;" PEZZI D’ORO " 

PRINT 

K=INT <RND(4))+2 
PRINT "DI FRONTE CI SONO ";K 
PRINT "PORTE QUALE VUOI APRIRE "5 
INPUT A 

IF A>K THEN GOTO 550 
GOSUB UBO 

IF RND <4)=1 THEN GOSUB 870 
IF AOK THEN GOSUB 610 
IF A=K THEN GOSUB 870 
K=INT <RND(4)) 

IF K=0 THEN E*=" MOSTRO " 

IF K=1 THEN E$=" MAGO " 

IF K=2 THEN E*=" FANTASMA " 

IF K=3 THEN E*=" GUARDIANO " 

PRINT "SCICCO TI SEI FATTO VEDERE" 
PRINT "DA UN "; 

E=INT(RND(4)) 

IF E=0 THEN F*=" PUGNALE " 

IF E=1 THEN F*=" SPADA " 

IF E=2 THEN FS=" CLAVA " 

IF E=3 THEN F*=" CATENA "• 

PRINT E*;" ARMATO DI " 5 F% 

PRINT 

PRINT "BISOGNA COMBATTERE" 

PRINT "QUALE ARMA SCEGLI ?" 

PRINT " UN BASTONE (1)" 
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780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 


PRINT " UNA SPADA (2)" 

PRINT " UNA CATENA (3)" 

INPUT "COSA SCEGLI ";B 
IF B<1 OR B>3 THEN GOTO 800 
C=INT(RND(3))+l 
GOSUB 1180 

IF B=C THEN GOSUB 1370 
IF BOC THEN GOSUB 1430 
GOTO 390 
K=INT <RND(4)) 

IF K=0 THEN GOSUB 930 
IF K=1 THEN GOSUB 970 
IF K=2 THEN GOSUB 1020 
IF K=3 THEN GOSUB 1070 
GOTO 390 

PRINT "SEI CADUTO IN UNA BOTOLA " 
W=W-1SPRINT "FORSE PERDERAI DELL’ORO" 
S=S-1NT(RND <2))-l 
RETURN 

PRINT "UN MURO DI FIAMME TI BLOCCA" 
PRINT "DEVI TORNARE INDIETRO !" 

W=W-1 

S=S-INT(RND(2))—1 
RETURN 

PRINT "LA PRINCIPESSA TI GUIDA E.." 
PRINT "FORSE RICEVERAI DELL'ORO" 
S=S+INT <RND<5))+l 
W=W+INT(RND(3))+l 
RETURN 

PRINT "IN FOLLETTO TI PORTA AD UNO" 
PRINT "SCRIGNO CONTENENTE 5 PEZZI " 
PRINT "D’ORO. QUANDO TU HAI DECISO" 
PRINT "QUANTO PRENDERE IL FOLLETTO" 

PRINT "TI ACCOMPAGNERA *." 

PRINT 

INPUT "QUANTI PEZZI D'ORO PRENDI ";0 


1140 IF 0>5 OR 0<1 THEN GOTO 1130 

1150 S=S+0 

1160 W=W-INT <0/2) 

1170 RETURN 
1180 CLS 

1190 IF S<0 THEN S=0 

1200 PRINT " LABIRINTO"SPRINT 

1210 RETURN 

1220 PRINT "SEI ALL’USCITA !" 

1230 PRINT "HAI ORO A SUFFICIENZA ?" 

1240 PRINT "PREMI RETURN PER SCOPRIRLO"; 

1250 INPUT C* 

1260 CLS 

1270 IF S>24 THEN GOTO 1320 

1280 IF S<24 THEN PRINT "SEI STATO DIVORATO" 
1290 PRINT "CON ";S;" PEZZI D’ORO" 

1300 FOR D=0 TO 60sNEXT 
1310 IF S<25 THEN GOTO 1500 
1320 PRINT "SEI SALVO !!" 

1330 PRINT "CON ";S;" PEZZI D’ORO" 

1340 PRINT "IN " ; X ;" MOSSE" 

1350 FOR D=0 TO 60sNEXT 
1360 GOTO 1500 

1370 PRINT "TU BATTI IL "; E* 

1380 S=S+ INT <RND (3) ) •♦■1 

1390 PRINT "ED HAI ";S;" PEZZI D’ORO" 

1400 W=W+INT(RND(4))+1 

1410 PRINT "SEI VICINO ALLA STANZA N.";W 
1420 RETURN 

1430 PRINT "E IL ";ES;" TI BATTE !!!" 

1440 S=S-1NT(RND < 4))-1 

1450 PRINT "TI RESTANO ";S;" PEZZI D’ORO" 
1460 W=W—1 

1470 IF W<1 THEN W=1 

1480 PRINT "RITORNA ALLA STANZA N.";W 
1490 RETURN 
1500 CLS 



C CAMPAGNA ABBONAMENTI!!! 



La rivista LASER COMPUTER CLUB, ha una cadenza bimestrale. Ogni numero costa L. 4.000. 
Può essere richiesta alla SOFIN s.r.l. - Laser Computer Club - P.zza del Popolo, 14, 22100 COMO, 
allegando L. 4.000, oppure sottoscrivendo l'abbonamento annuale (1 numero GRATIS!!!). 


Desidero sottoscrivere un abbonamento annuo alla rivista LASER COMPUTER CLUB (6 numeri, L. 20.000). 
Per il pagamento deirimporto dovuto attendo vostro bollettino di versamento postale. 

Vogliaste inviare la rivista al seguente indirizzo: 

Coqnone Nome 


Via 


Cap. 

Città 

Prov. 

Data 

Firma 



la presente offerta è valida solo per l’Italia. 

SI RACCOMANDA DI SCRIVERE IN STAMPATELLO. 



Ritagliare e spedire in busta chiusa a: 

SOFIN s.r.l. - LASER COMPUTER CLUB - P.zza del Popolo, 14 - 22100 COMO 
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Swatting 


per Laser 500 


Swatting: cioè (colpire, 
schiacciare). 

È un gioco di abilità e 


di riflessi in pratica è 
simile al gioco del mu¬ 
ro, la palla che rimbal¬ 


zando verrà nuova¬ 
mente colpita con un 
colpo di racchetta, ave¬ 


te cinque palle per ot¬ 
tenere un buon pun¬ 
teggio. 


100 ************************************ 

110 ***** SWATTING **** 

120 ***** LISTATO PER LASER 500 **** 

130 ***** di ENRICO M. **** 

140 ************************************ 

150 COLOR 15,4,1:CLS:TEXT 40 
160 CLEAR 1000:ZX = 18 

170 DATA &H21,&H30,O,&U11,5,0,6,2,&HCD,&HEA,9,&HC9 
180 DATA ? 1, &HFF, 2, &H 11, 1,0, ó, 2, 8 <HCD, &HEA, 9, &HC9 

190 POR W=$<H8970 TO &H3987:READ MsPOKE W,M 
200 NEXT :SD=8<M8970sDP=8<H897C 
210 REM DEF. STRINGA SWATTING 

220 B1 $=” " +CHR* (158) +STRING$ (28, CHR* (156)) +CHR* (157) 

230 B2*=" " +CHR$ ( 154) +STRING$ (28, ” ” ) +CHR* ( 149) 

240 PRINT B1*:F0R B=1 TO 17:PRINT B2$: NEXT:PRINT B3S 
250 PC*=CHR* (147) +CHR* (147) +CHR* (147) 

260 REM DEF FOR ISTR. LOCATE X,Y 

270 DEF FN P* ( X , Y) =CHR* (27) +CHR* ( 161 ) +CHR* (31 +X ) +CHR* (31+Y) 

280 BL=5 

290 PRINT FN P*(6,23);"SCORE 0” 5 TAB(27) 5 "BALL 5” 

300 REM START PALLINA 

310 RANDOMIZE:L0=40s LV=24 s PX = INT(RND( 1)* 18)+7:PY=2:SX = 1:SY=1 
320 PRINT FN P$(7,15); STRINGA(27," ”) 

330 SOUND 10,1520,1530,1 

340 IF BL=0 THEN GOTO 480 

350 REM **** INIZIO PROGRAMMA **** 

360 IF PEEK(&H85F0)=22 AND ZX<30 THEN ZX=ZX+1 
370 IF PEEK(&H85F0)=34 AND ZX>7 THEN ZX=ZX-1 
380 PRINT FN P*(PX,PY); 2 SC=PEEK(&H8604) 

390 IF SC=19 THEN CALL SD:SY=-1sPT=PT+10:PRINT FN P% (11,23 )5 PT: GOTO 430 
400 IF PY>22 THEN BL=BL-1:PRINT FN P$(33,23) 5 BL:GOTO 310 
410 PRINT FN P*(PX,PY);CHR*(140) 

420 PRINT FN P*(PX,PY); M " 

430 PX=PX+SX:PY=PY+SY 

440 IF PX=7 OR PX=L0-6 THEN SX=-SX:CALL SD 

450 IF PY=2 THEN SY=-SY 

460 PRINT FN P*(ZX,15); n "5 PC* 5 " » 

470 GOTO 360 

480 PRINT FN P*(13,10) 5 "G A M E 0 V E R” 

490 PRINT FN P*(12,12);”PRESS KEY TO START” 

500 SOUND 1,I 5 10,lj5,1;1,5 

510 IF PEEK(&H85F0)=255 THEN 510 ELSE RUN 
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Atzeco 

adventure per laser 500/310 

Per 1 Laser 210 e 110 occorre l’espansione di memoria da 16 K. 


Si tratta del solito ad¬ 
venture, cioè un gioco 
di simulazione con il 
computer, dove biso¬ 
gna battersi con dra¬ 
ghi, mostri ecc... sfug¬ 
gire alle trappole mor¬ 
tali che in questo ad¬ 
venture non mancano 
anzi ve ne sono fin 
troppe. 

Ma c'è qualcosa di di¬ 
verso rispetto ad altri 
adventure. 

Infatti è inutile tenta¬ 
re di risolverlo, senza 
prendere nota su un 
quaderno le varie de¬ 
scrizioni che man ma¬ 
no vi verranno mostra¬ 


te sul video trattando¬ 
si di ben 56 fra stanze, 
luoghi grotteschi e 
città. 

Dunque non bisogna 
prenderlo alla leggera. 
E come se non bastas¬ 
se nel corso del gioco 
occorre prendere nòta 
dei vari messaggi in 
modo da poter identi¬ 
ficare la parola d'or¬ 
dine. 

Ed infine il gioco si mo¬ 
stra di tipo agonistico 
in famiglia e con amici. 
Questo è stato reso 
possibile grazie alle ul¬ 
time linee BASIC del 
programma, indicando 


il massimo punteggio 
ottenuto, ogni volta 
che il gioco giunge al 
termine o in caso di 
morte! 

ELENCO DEI VERBI: 
VAI. MUOVI, CORRI. 
CAMMINA, PRENDI. 
POSA, GETTA, MAN¬ 
GIA, ASSAGGIA, NUO¬ 
TA, TUFFATI, ARRAM¬ 
PICATI. SALTA. UCCI¬ 
DI. AMMAZZA. TIRA, 
LANCIA, BEVI, TRA¬ 
CANNA, INVENTARIO, 
COMPERA. PAGA. SCA¬ 
VA. SCAPPA. FUGGI. 
ABBREVIAZIONI 
USATE: 

N = VAI A NORD 


S = VAI A SUD 
0 = VAI AD OVEST 
E = VAI A EST 
I = INVENTARIO 
G = RIPETI DESCRI¬ 
ZIONE AMBIENTE 
P = PRENDI OGGETTO 
F = FINE GIOCO 
LISTA DELLE VARIA¬ 
BILI 

F(1) GUERRIERO PRE¬ 
SENTE 

F(2) ACCESSO ALLA 
CITTÀ 

F(3) PAGARE TRIBUTI 
F(4) FAME 

F(5) TRIBUTI DA PA¬ 
GARE 

F(6) GUERRIERO/GRA- 
NI/CACAO 
IV OGGETTI PRESI 
NL NUMERO VERBI 
NS NUMERO STANZE 
S NUMERO DI STANZA 
CORRENTE 
MX MASSIMO NUME¬ 
RO DI OGGETTI 


io ’ttttttttttttttttttttttttttuuu 

20 'Ut ATZECO ADVENTURE Ut 

30 ’ttt LISTATO PER LASER 500 Ut 
40 ’ttt ROBERTO B. ttt 

50 ’tttttttttttttttttttttttttttttttt 

90 ’ 

100 CLS:TEXT 80:CLEAR 5000:RAMDOHIZE 
110 PRINT ‘ANNO’ 1520: A.C.' 

120 PRINT 'VALLE DI ANAHUAC. INTORNO, IN LONTANANZA,CI SONO ALTE MONTAGNE COPERTE 
130 PRINT 'DI NEVE, CON CORSI D’ACBUA CHE SCENDONO AVALLE, A FORMARE CINQUE LAGHI' 

140 PRINT ‘CHE SI ESTENDONO PER B0KH IN LUNGHEZZA' 

150 PRINT :PRINT '10 SARO' LE TUE MANI, I TUOI OCCHI E LE TUE GAMBE. DIMMI COSA VUOI FARE' 
160 PRINT :PRINT 'ABBREVIAZIONI:' 

170 PRINT SPRINT 'N,E,S,0=VA1 NORD, EST, SUD, OVEST, ^INVENTARIO, F=FINE* 

1B0 PRINT '6=RIPETI DESCRIZ. P=PRENDI OGGETTO' 

190 PRINT SPRINT SPRINT SPRINT SPRINT 'ATTENDERE PREGO !* 

200 REM 

210 REM 1NIZIALIZZAZI0NE 
220 REM 

230 0L=19:NL=27:NS=56:LN=4:P$='0000111111101101110':S=1:MX=1 
240 DIH DS(NS,5),NTt(2),NV(2),NVt(NL,2),0(OL),0t(0L) 

250 F0R 1=1 T0 NS:F0R Y=1 T0 4:READ DS<I,Y):K=K*DSIX,Y):NEn Y:DS<X,5)=0:NEXT X 
260 IF K04561 THEN PRINT 'ERRORE NEI DATA NELLA TABELLA DIREZIONI: CORREGGEREI':END 
270 F0R 1=1 T0 NL:F0R Y=1 T0 2:READ NV$U,Y):NEIT Y,X 
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280 FOR X=1 T0 QL-.READ 0$<X)sNEXT X 

290 K=0: FOR X=1 TO OL : READ 0U):K»K+0U):NEXT X 

300 IF K<>262 THEN PRINT 1 ERRORE NEI DATA STANZA 066ETTI: CORREGGERE 1 END 
310 PRINT CHR$(tiH18);:INPUT -FRENI RETURN PER INIZIARE *;LN$ 

320 REN 

330 REN GESTIONE INPUT 
340 REN 

350 60SUB 640:60SUB 2120 
360 INPUT *CONANDO*;C$:PRINT 

370 N=N+1:IF C$= B QUETZALCOATL B OR C$=*HUITZILOPOCHTLI■ THEN 2190 

380 IF C$=‘NICOATL* OR CI= B XIPE B OR C$= B COATLICUE B THEN 2190 

390 IF LEFT$(C$,9)=-N0NTEZUNA* THEN 2260 

400 IF LEN(C$)>1 THEN 490 

410 IF C$= B N B THEN NV <1)=1:NV(2)=1:6QT0 530 

420 IF C$= B E B THEN NV <1)=1:NV(2)=2:G0T0 530 

430 IF C$= B S B THEN NV <1)=1:NV(2)=3:60T0 530 

440 IF C$= B 0 B THEN NV (1)=1:NV<2)=4:60T0 530 

450 IF C$= B 6 B THEN 350 

460 IF C$= B I B THEN 1740 

470 IF CÌ= B F B THEN 4080 

480 IF C$="P B THEN NV(1)=5:NV(2)=0:BOTO 1100 

490 6QSUB 2460 

500 REN 

510 REN TEST PER SITUAZIONI DIFFICILI 
520 REN 

530 IF NV(1)=0 THEN PRINT "NON CONOSCO IL TERRINE B ;NT$(1):60TQ 360 
540 IF F(i)=1 OR F(1)=2 THEN IF NV(1)=1 THEN GOSUB 2140:60TQ 360 
550 IF F(l)>2 THEN 2390 
560 IF F(3)=2 AND S=29 THEN 2410 

570 IF N>45 THEN IF FC41O10 THEN F(4)=F(4)M:PR1NT "HAI MOLTA FANÉ* 

580 IF F(4)=9 THEN 2400 

590 IF S=15 AND NV(1)=1 AND F(5)=0 AND NV<2)<>3 THEN 2410 
600 GOTO 970 
610 REN 

620 REN STANPA DESCRIZIONE 
630 REN 

640 CLS:DS(S,5)=1 

650 ON 1+INT(S/13) GOSUB 670,690,710,730,750 
660 K=1:6QTG 800 

670 QN S GOSUB 2790,2820,2830,2840,2850,2880,2910,2940,2970,3010,3040,3060 
680 RETURN 

690 ON S-12 GOSUB 3090,3110,3140,3170,3180,3190,3200,3220,3230,3240,3250,3260,3270 
700 RETURN 

710 ON S-25 GOSUB 3330,3340,3380,3400,3420,3440,3460,3480,3500,3520,3540,3560,3610 
720 RETURN 

730 ON S-38 60SUB 3630,3650,3670,3690,3720,3770,3790,3810,3830,3810,3810,3810,3810 
740 RETURN 

750 ON S-51 GOSUB 3810,2840,2840,2840,2840 
760 RETURN 
770 REN 

780 REN STANPA 066ETTI E USCITE 
790 REN 

800 FOR Z=1 TO OL:IF K=1 THEN IF 0(Z)=S THEN PRINT "COSE INTERESSANTI: B :K=0 
810 GOTO 870 

820 TP$=0$(Z):IF RI6HT$(TP4,n<>V B THEN RETURN 

830 FOR N=LEN(TP$)-1 TO 1 STEP -1 

840 IF NID$(TP$,N,1)= B / B THEN TP$=LEFT$(TP$,N-1)-.RETURN 

850 NEXT N 

860 RETURN 

870 IF 0<Z)OS THEN 890 
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880 60SUB 820:PRINT TP$ 

890 NEXT ZsPRIMT 
900 REM STAMPA USCITE 

910 K=1:F0R Z=1 TO 4:IF K=1 THEN IF DS<S,Z)<>0 THEN PRINT "USCITE VISIBILI A:":K=0 
920 IF DS(S,Z)<>0 THEM PRINT Q$(Z); B B ; 

930 NEXT Z s PRINT:PRINT:RETURN 
940 REM 

950 REM SESTIOHE VERBI 
960 REM 

970 X=NV(1):IF X<2 THEN X=2 
980 X-INT(X/2) 

990 ON X 60T0 1040,1100,1240,1300,1420,1470,1530,1620,1690,1740,1830,1920,2070 
1000 PRINT B NON HO CAPITO COSA VUOI FARE!!! B :GOTO 360 
1010 REM 

1020 REM DIREZIONI 
1030 REM 

1040 IF NV(2)<1 THEN PRINT B DAMMI ANCHE UNA DIREZIONE - : BOTO 360 

1050 IF DS(S,NV(2))=0 THEN PRINT "NON PUOI ANDARE IN CUESTA DIREZIONE!! B :60T0 360 

1060 S=DS(S,NV(2)):6QTQ 2370 

1070 REM 

1080 REM PRENDI 

1090 REM 

1100 IF NV(2)=0 THEN 1190 

1110 IF 0<NV(2))=-1 THEN 2340 

1120 IF 0(NV(2))<>S THEN 2350 

1130 IF MID$(P$,NV(2),1)= B 0 B THEN 2380 

1140 IF IV*1>MX THEN 2360 

1150 0(NV(2))=-1:IV=W1 

1160 IF NV(2)=9 OR NV(2)=10 OR NV(2)=U THEN F(3)=2 
1170 IF NV(2)=14 AND S=19 THEN PRINT "LADRO!“:60T0 2410 
1180 60T0 2330 

1190 FOR X=5 TO 19:IF 0(X)=S THEN NV(2)=X:60T0 1130 

1200 NEXT X:60T0 2380 

1210 REM 

1220 REM POSA 

1230 REM 

1240 IF 0<NV(2))<>-1 THEN 2380 

1250 0(NV(2))=S:IV=IV-1:IF S=30 AND(0(8)=S OR 0(18)=S) THEN F(3)=1:DS(37,4)=38 

1260 GOTO 2330 

1270 REM 

1280 REM MANGIA 

1290 REM 

1300 IF NV<2)=16 THEN 1340 
1310 IF NV(2)014 THEN 2380 

1320 IF 0(14)0-1 THEN PRINT B NON LE HAI!":GOTO 2380 

1330 PRINT B TI SEI RIFOCILLATO, PUOI CONTINUARE LA RICERCA":F(4)=10:0<14)=0:60TO 360 
1340 IF Q(5)=-l THEN 0(5)=0:60T0 1370 
1350 IF 0(16)=-l THEN O(16)=0:G0T0 1370 
1360 PRINT B DOVE C’E L’HAI? B :60TQ 360 

1370 PRINT B IL TUO STOMACO URLA DI FAME E TU GLI DAI BRICIOLE...MEGLIO DI NIENTE..." 
1380 N=38:F(4)=0:GOTO 360 
1390 REM 

1400 REM NUOTO/TUFFO 
1410 REM 

1420 IF S>21 THEN 2380 

1430 PRINT B TI SEI TUFFATO SPLENDIDAMENTE,PECCATO CHE NON SAI NUOTARE"sGOTO 2400 
1440 REM 

1450 REM SALTA/ARRAMPICA 
1460 REM 

1470 IF S<>9 OR SOM OR S<>27 THEN 2380 
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UBO IF S=6 OR S=8 THEN 1430 

1490 PRINT "TI STAVI ARRAMPICANDO BENE, FINCHE* NON SEI SCIVOLATO ! B :GQTO 2400 
1500 REM 

1510 REM AMMAZ2A/UCCUDI 
1520 REM 

1530 IF Q(6)<>-1 THEN PRINT 'CON CHE SOSA ? B :60T0 360 

1540 IF S=27 OR S=42 THEN PRINT B CI HAI PROVATO...":60TQ 2410 

1550 IF NV(2)<>12 THEN PRINT "CHI VUOI UCCIDERE ? B :GQTO 360 

1560 PRINT "HAI UCCISO IL GUERRIERO AZTECO. ALCUNI PASSANTI PORTANO VIA IL CORPO 1 

1570 0(12)=0:F(1)=0:1F F(6)=0 THEN F(6)=1:Q(16)=S:PRINT B S1 SENTE UN RUMORE STRANO..* 

1580 GOTO 360 
1590 REM 
1600 REM LANCIA 
1610 REM 

1620 IF MV(2)<>7 OR S<>25 THEN 1240 
1630 IF INT(10tRND(imi<6 THEN 1240 

1640 PRINT “FORMIDABILE !! HAI FATTO CANESTRO: TI SEI ACCLAMATO IL BENVENUTO* 

1650 DS(27 f 2)=28:GOSUB 2610:0(7)=S:GOTO 350 
1660 REM 
1670 REM BEVI 
1680 REM 

1690 IF 0(13)0-1 THEN PRINT "COSA VUOI BERE ? B s6QT0 360 
1700 PRINT "TISENTI ALLEGRO": GOTO 360 
1710 REM 

1720 REM INVENTARIO 
1730 REM 

1740 CLS:PRINT B CON TE HAI:" 

1750 PRINT FRE(O) 

1760 NC=0:FQR Z=1 TO QL:iF Q(Z)=-1 THEN NC=NC+1:60SUB 820:PR1NT TP$ 

1770 NEH Z 

1780 IF NC=0 THEN PRINT “NIENTE" 

1790 PRINT :GOTO 360 
1800 REM 
1810 REM COMPRA 
1820 REM 

1830 IF 0(5)0-1 AND 0(16)0-1 THEN PRINT "CON CHE COSA ? QUI CI V06LIQN0 SOLDI!":60T0 360 

1840 IF SM5 AND F(5X>1 THEN GOSUB 2420:IV=IV-1:F(5)=1:G0T0 1870 

1850 IF S<>19 OR 0(14)019 THEN PRINT "COSA VUOI FARE ?":60TQ 360 

1860 IF NV(2)=14 THEN PRINT "OK, HAI LE TORTILLAS":0<14)=-l 

1870 IF 0(5)=-l THEN 0(5)=0:G0T0 360 

1880 IF 0(16)=-l THEN 0(16)=0:60T0 360 

1890 REM 

1900 REM SCAVA 

1910 REM 

1920 IF S<>47 THEN 2380 

1930 INPUT "CON COSA, LE MANI NUDE";C$ 

1940 IF LEFT$(C$,2)0"S1" THEN GOTO 370 

1950 PRINT "PERFETTO ! HAI APERTO UN BUCO NEL MURO, DA DOVE ENTRA ACQUA:" 

1960 PRINT "TI FANNO USCIRE INSIEME A6LI ALTR1":S=9 
1970 FOR X=1 TO 2000:NEXT X 

1980 IF F(2)=1 THEN F(2)=0:DS(B,2)=0:DS(9,1)=0:DS(12,4)=0:DS(6,3)=0 
1990 FOR X=1 TO OL 

2000 IF 0(X)=-1 THEN Q(X)=10:IV=IV-1 
2010 NEXT X 

2020 IF F(3)=2 THEN F(3)=0:Q(9)=30:0(10)=30:Q(11)=30 
2030 60T0 350 
2040 REM 

2050 REM SCAPPA/FU66I 
2060 REM 

2070 PRINT "E COME ? NON CI SONO FINESTRE, LE PARETI SONO UMIDE E LA PORTA" 
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2080 PRINT "E* DI PIETRA MASSICCIA - :60T0 360 
2090 REM 

2100 REM 6UERRIERQ 
2110 REM 

2120 A=INT < 101RND ( 1 ) ) *f 1 

2130 IF A<9 OR S<7 OR S=9 OR S=47 THEM RETURN 

2140 PRINT "UN GUERRIERO AZTECO TI SBARRA LA STRADA CON PESSIME INTENZIONI" 

2150 0(12)=S:F(1)=F(1 HI: RETURN 
2160 REM 

2170 REM PAROLA D’ORDINE 
2180 REM 

2190 IF C$O"QUETZALC0ATL" THEN 2210 

2200 IF S=9 THEN F(2)=1:DS(6,3)=24:DS(8,2)=23:DS(9,1)=15:DS(12,4)=15:GOTO 2220 

2210 PRINT "ONORE A LUI !!! - :GOTO 360 

2220 PRINT - SI ABBASSA IL PONTE ELEVAT0IQ - :90SUB 2610:60T0 350 

2230 REM 

2240 REM COLUI CHE PARLA 
2250 REM 

2260 IF SOM THEN PRINT "ONORE A LUI !!! - :60T0 360 

2270 PRINT - ALCUNE NELLE NOSTRE DIVINITÀ* SONO MICOATL, HUITILOPOCHTILI," 

2280 PRINT "COATLICUE, QUETZALCOATL, XIPE - :6QTQ 360 
2290 REM 

2300 REM MESSAGGI 
2310 REM 

2320 PRINT "FATTO. - :GOTO 360 

2330 PRINT "FATTO.*:60T0 360 

2340 PRINT "LO HAI GIÀ* ":60T0 360 

2350 PRINT "DOVE LO VEDI ?":60T0 360 

2360 PRINT "SEI TROPPO CARICO !":60T0 360 

2370 PRINT "FATTO.":GOTO 350 

2380 PRINT "NON ESSERE SCI0CC0":60TQ 360 

2390 PRINT "SEI MORTO, UCCISO DA UN GUERRIRO AZTECQ":60T0 4080 

2400 PRINT "SEI MORTO !":GOTO 4080 

2410 PRINT "DUE SOLDATI TI SCORTANO IN PRI6I0NE":60SUB 2610:S=47:Q(6)=10:60T0 350 

2420 PRINT "TI COSTERÀ* UN SACCHETTO DI CACAO! OK, PA6AT0!":RETURN 

2430 REM 

2440 REM INPUT 

2450 REM 

2460 K=1:NT$(1)="":NT${2)="" 

2470 FOR 1=1 TO LEN(C$):K$=M1D$IC$,X,1):IF K$=" " THEN K=2:60SUB 2570:IF NT$(2)<>"" THEN 2500 
2480 IF K$<> - ■ THEN NTNKMNTNKMKI 
2490 NEXT X 

2500 FOR X=1 TO 2:NV(X)=0:1F NT$tX)="" THEN 2550 

2510 FOR Y=1 TO NL:K*=NV$(Y,X):IF LEFT$(K$,l)="t" THEN K$=MID$(K$,2) 

2520 IF LEFT$(NT$(X),4)=K$ THEN NV(X)=Y:GQTQ 2540 
2530 NEXT Y:60T0 2550 

2540 IF LEFT$(NV$(NV(X),X),l)="t" THEN NV(X)=NV(X)-1:6QT0 2540 
2550 NEXT X:IF (NV(1)=5 OR NV(1)=6) AND NVI2X1 THEN 2380 
2560 RETURN 

2570 FOR Y=1 TO NL:1F LEFT$(NT$(2),4)=NV$(Y,2) THEN 2600 
2580 NEXT Y 
2590 NT$(2)="" 

2600 RETURN 

2610 FOR X=1 TO 1500:NEXT X:RETURN 
2620 REM 

2630 REM DIREZIONI 
2640 REM 

2650 DATA 2,3,4,0,2,2,4,2,1,0,5,4,4,4,53,1,3,0,6,7,5,0,0,0,5,8,9,0,0,0,0,7 

2660 DATA 0,0,10,7,11,0,11,9,12,10,10,12,0,13,11,0,14,0,12,0 

2670 DATA 1,0,13,0,0,16,9,22,19,18,17,15,16,0,0,0,0,0,0,16,20,21,16,22 
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2680 DATA 26,21,19,15,0,0,0,19,23,19,15,15 

2690 DATA 24,25,22,8,6,26,25,23,24,0,27,23,24,21,20,27,26,0,15,25 

2700 DATA 0,29,0,27,31,32,30,28,29,35,0,0 

2710 DATA 37,36,29,0,33,0,34,29,0,0,32,36,32,0,0,35,0,34,0,30,0,33,0,31,0,0,31,0 
2720 DATA 37,41,39,0,38,40,0,0,0,0,0,39,44,0,0,38,41,43,0,0,0,0,0,42 
2730 DATA 49,46,41,45,48,50,44,49,49,51,52,44,0,0,0,0,49,50,50,45,48,46,44,45 
2740 DATA 48,52,45,48,52,42,46,52,51,50,51,46,4,55,56,54,53,56,55,56,3,56,53,54 
2750 DATA 53,55,54,54 
2760 REH 

2770 REH DESCRIZIONI 
2780 REH 

2790 PRINT 'SEI CAUCKTITLAN, DAVANTI AL LAGO SALATO ZUHFAN60. A NORD CI SONO - 
2800 PRINT - DELLE PALUDI. UNA SCRITTA SUL TERRENO DICE: DEL CHE* :" 

2810 RETURN 

2820 PRINT -SEI PERSO SENZA VIA DI SCAHPO, NELLE PALUDI - :RETURN 
2830 PRINT - SEI A ECATEPC, DAVANTI AL LAGO SALATO TEXCOCO - :RETURN 
2840 PRINT -SEI PERSO IN HEZZO ALLE H0NTA6NE - :RETURN 
2850 PRINT "SEI A TEPEYACAC: IN LONTANANZA SI VEDE IL TEMPIO TENAVUCA - 
2860 PRINT - UNA SCRITTA SUL TERRENO DICE : PAROLA:" 

2870 RETURN 

2880 PRINT "SEI SU UNA STRADA SOPRAELEVATA SUL LAGO TEXCOCO" 

2890 IF F(2)=0 THEN PRINT - ALCUNE PARTI NOBILE SONO STATE RIHOSSE" 

2900 RETURN 

2910 PRINT "SEI A TLACOPAN, A NORD SI VEDENO ALTRI VILLA66I E TEHPII" 

2920 PRINT "UNA SCRITTA SUL TERRENO DICE : CREA:" 

2930 RETURN 

2940 PRINT "SEI SU UNA STRADA SQPRAELEVATA - 

2950 IF F(2)=0 THEN PRINT "ALCUNE PARTI NOBILE SONO STATE RIMOSSE" 

2960 RETURN 

2970 PRINT - A COYACAN, CITTA* F0RT1F1CATA - 

2980 IF F<2)=0 THEN PRINT "C’E* UN PONTE LEVATOIO ALZATO > PAROLA D’ORDINE!" 

2990 PRINT - UNA SCRITTA SUL TERRENO DICE : LA E* IL:" 

3000 RETURN 

3010 PRINT "SEI A HIXQQUIC DAVANTI AL LA60 D’ACQUA DOLCE CHALCO" 

3020 PRINT "UNA SCRITTA SUL TERRENO DICE :NOHE DIO:" 

3030 RETURN 

3040 PRINT SEI A TLATENGO (SCRITTA SUL TERRENO DICE : APRE CHE*:" 

3050 RETURN 

3060 PRINT "SEI A HEX1CALC0N60, VICINO AL TEHPIO TQLUHACAN - 
3070 IF F(2)=0 THEN PRINT - A OVEST C’E* UN PONTE INTERROTTO - 
3080 RETURN 

3090 PRINT "SEI NELLA 6RANDE CITTA* DI TEXCOCO - 
3100 RETURN 

3110 PRINT "SEI DAVANTI ALL’ENORHE TEHPIO DEL SOLE, A TEOTIHUACAN. - 

3120 PRINT - UNO STREGONE TI CHIEDE: SAI DIRMI IL NONE DI COLUI CHE PARLA ?:" 

3130 RETURN 

3140 PRINT "SEI A TEN0CHT1TLAN, DAVANTI ALLA BARRIERA RISCOSSIONE TRIBUTI" 

3150 PRINT "LA CITTA* E* UNA SPECIE DI VENEZIA CON CANALI E PASSERELLE OVUNQUE" 
3160 RETURN 

3170 PRINT "SEI TENOCHTITLAN": RETURN 
3180 PRINT - SEI TENOCHTITLAN, DAVANTI AL LAGO":RETURN 
3190 PRINT - SEI TENOCHTITLAN, DAVANTI AL LA60":RETURN 
3200 PRINT "SEI TENOCHTITLAN " 

3210 PRINT - UN HERCANTE DI TORTILLAS":RETURN 

3220 PRINT "SEI TENOCHTITLAN - :RETURN 

3230 PRINT - SEI TENOCHTITLAN, DAVANTI AL LAGO":RETURN 

3240 PRINT - SEI TENOCHTITLAN"-.RETURN 

3250 PRINT "SEI TENOCHTITLAN - -.RETURN 

3260 PRINT - SEI TENOCHTITLAN - :RETURN 

3270 PRINT "SEI NELLA GRANDE PIAZZA DI TENOCHTITLAN (150X200 METRI), DAVANTI AL - 
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3280 PRIHT B 6RANDE TEOCALLI, CIRCONDATO DA PIRAMIDI «INORI. C’E' IL TEMPIO DI 1 
3290 PRINT ■OUETZALCOATL, MENTRE DAVANTI A TE C’E* IL SACRO CORTILE DEL 6I0C0* 

3300 PRINT 'TZOMPANTL, CON DUE CERCHI DI PIETRA APPESI PERPENDICOLARMENTE 1 
3310 PRINT "AL TERRENO SU DUE PARETI DI PIETRA 1 
3320 RETURN 

3330 PRINT “SEI TENOCHTITLAN 1 :RETURN 

3340 PRINT *SEI DAVANTI AL PALAZZO DI MONTEZUMA II, CON DUE GUERRIERI * 

3350 PRINT "CHE NE SBARRANO LMN6RESSQ. IL PALAZZO E* IMMENSO LUN60 QUANTO 1 
3360 PRINT "LA PIAZZA E ALTO DUE PIANI 1 
3370 RETURN 

3380 PRINT ■SEI NELL’INGRESSO DEL PALAZZO 1 
3390 RETURN 

3400 PRINT B SEI NEL LATO OVEST DI UN CORRIDOIO 1 
3410 RETURN 

3420 PRINT "SEI NELLA CAMERA DEI TRIBUTI 1 
3430 RETURN 

3440 PRINT “SEI IN UNA CAMERA DEL PALAZZO DI MONTEZUMA 1 
3450 RETURN 

3460 PRINT “SEI NEL LATO EST DI UN CORRIDOIO 1 
3470 RETURN 

3480 PRINT "SEI NEL TRIBUNALE 1 
3490 RETURN 

3500 PRINT "SEI NELLA SCALA DEGLI AMMINISTRATORI 1 
3510 RETURN 

3520 PRINT "SEI NEL MAGAZZINO DEI TRIBUTI 1 
3530 RETURN 

3540 PRINT "SEI NELLA CAMERA DEGLI OSPITI 1 
3550 RETURN 

3560 PRINT "SEI IN UNA STRANA STANZA DEL PALAZZO DI MONTEZUMA 1 

3570 IF F(3)=0 THEN PRINT B SUL LATO SINISTRO DELLA STANZA C’E' UNA VASCA VUOTA 1 

3580 IF F(3)=l THEN PRINT B C’E' UNA VASCA PIENA D’ACQUA A SINISTRA 1 

3590 IF F(3)=1 THEN PRINT "CHE HA FATTO APRIRE UNA PORTA A OVEST 1 

3600 RETURN 

3610 PRINT "SEI NEL LATO OVEST DI UN CORRIDOIO 1 
3620 RETURN 

3630 PRINT "SEI NELLE SALE DELLE 150 CONCUBINE DI MONTEZUMA 1 
3640 RETURN 

3650 PRINT "SEI NELLE CAMERE DELLA M06LIE DI MONTEZUMA 1 
3660 RETURN 

3670 PRINT "SEI NEL LATO EST DI UN CORRIDOIO 1 
3680 RETURN 

3690 PRINT B SEI NELL’INGRESSO DELLA CAMERA DI MONTEZUMA 1 
3700 PRINT "C’E* UN GUERRIERO DI GUARDIA 1 
3710 RETURN 

3720 PRINT "SEI NELLA CAMERA DI MONTEZUMA 1 

3730 PRINT B IL GRANDE PARLATORE TI ACCQ6LIE CON TUTTI GLI ONORI DOVUTI 1 

3740 PRINT B AD UN VINCITORE, DANDOTI IL SUO BELLISSIMO E PREZIOSISSIMO 1 

3750 PRINT "COPRICAPO IN 0MA66I0, OLTRE ALLA SCELTA FRA LE SUE PIU 1 BELLE CONCUBINE 1 

3760 PRINT "C0H6RATULAZIONI !!!!!»sfiDTO 4080 

3770 PRINT "SEI IN UNA CAMERA DEL PALAZZO DI MONTEZUMA 1 

3780 RETURN 

3790 PRINT "SEI IN UNA CAMERA DEL PALAZZO DI MONTEZUMA 1 
3800 RETURN 

3810 PRINT "SEI IN UNA CAMERA DEL PALAZZO DI MONTEZUMA 1 
3820 RETURN 

3830 PRINT "SEI IN UNA PR16I0NE MOLTO BUIA, PREPARATI AL SACRIFICIO'sRETURN 
3840 REM 

3850 REM VERBI E NOMI 
3860 REM 

3870 DATA 1 VAI 1 ,"NORD 1 ,"HUOV 1 ,"EST 1 , 1 ICORR 1 ,"SUD 1 , 1 tCAMM 1 ,"OVES 1 ,"PREN","SACC 1 
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3880 DATA - P0SA',■SPAD-,M6£TT , , , PALL i , , HAMG-,'GIOÌ", B IASSA - ,-PIEr/HUOr 
3890 DATA "HWII ", "tTUFF■,"BALL 1 ,"ARRA*,"6UER", B tSALT B ,"BOTT","UCCI B ,"TORT" 

3900 DATA B ÌAHHA B , B TRIB B , B TIRA B , B CACA B , B tLAUC B > B LUNA B , B 8EVI B , B CERB B , B tTRAC B 
3910 DATA B DISC B , B lHVE B , BB , B HORT B , ,,- , B COHP B , BB , B tPA6A B , BB f B SCAV B > BB 
3920 DATA " WSCAP*," ",“tFUGG“,"" 

3930 REH 

3940 REM OGGETTI 
3950 REM 

3960 DATA *NORD B ,"EST*, B SUD B ,“OVEST" 

3970 DATA "UN SACCHETTO DI 6RANI DI CACAO/SACCH/","UNA SPADA DI 0SS1DAMA/SPADA/ 1 
3980 DATA “UNA PALLA DI GOHMA/PALLA/*,"UN 6I0ELL0 D’ORO/GIOIELLO/ 1 
3990 DATA “DELLE PIETRE PRE210SE/P1ETRE/*,“DEI MONILI D'ORO/HONILI/" 

4000 DATA “DELLE BALLE DI COTONE/SACCHI/ B ,“UN GUERRIERO AZTEC0/6UERRIER0/“ 

4010 DATA “UNA BOTTIGLIA DI 0CLTI/B0TTI6ILA/",“DELLE T0RT1LLAS/T0RTILLAS/" 

4020 DATA “TRIBUTI - ,“DEI 6RANI DI CACAO/CACAO/“ 

4030 DATA “UNA LUNA TUTTA D’AR6ENTQ/LUNA/“,“UNA CERBOTTANA D’ORO/CERBOTTANA/" 
4040 DATA “UN ENORME DISCO DI PIETRA SCOLPITO/DISCO/“ 

4050 REM STANZE 066ETTI 

4060 DATA 0,0,0,0,10,6,16,5,30,30,30,0,22,19,0,0,36,24,34 
4070 REM ROUTINE DI FINE GIOCO 

4080 K=0:FOR X=1 TO NS:K=K*DS<I,5):NEIT X:K=1NT(KtlOOO/NS)/IO 
4090 PRINT “HAI VISTO B ;K;“X DELLA AVVENTURA* 

4100 INPUT “UN'ALTRO GIRO ";K$:IF LEFT$(K$,1)="S" THEN RUN 
4110 END 


io ’ttttttttttttttttttttttttttttttttt 

15 'tt ATZECO ADVENTURE tt 

20 'Il LISTATO PER LASER 310 t$ 

25 'tt ROBERTO B. tt 

26 immtmmmtmmmmm 

30 'tt attenzione i spazii vuoti tt 

32 'tt nelle righe vanno eliainati tt 

33 'tt per avere lax 64 caratteri, tt 

34 ’ttES:45 PRINT“ANNO' 1520: A.C. tt 

35 ’tt 135 F0RI=1T0NS:FQRY=1T04: tt 

36 ’ttttttttttttttttttttttttttttttttt 

39 * 

40 CLSsCLEAR 5000 

45 PRINT “ANNO' 1520: A.C." 

50 PRINT “VALLE DI ANAHUAC. INTORNO, IN LONTANANZA," 

55 PRINT "CI SONO ALTE HOTACNE COPERTE" 

60 PRINT "DI NEVE, CON CORSI D'ACQUA CHE SCENDONO A VALLE" 

65 PRINT “A FORMARE CINQUE LAGHI" 

70 PRINT “CHE SI ESTENDONO PER 80KM IN LUNGHEZZA" 

75 PRINT "IO SARO* LE TUE MANI, I TUOI OCCHI E LE TUE GAMBE" 
80 INPUT "PREMI RETURN";KKt:CLS 
85 PRINT SPRINT "ABBREVIAZIONI: "; 

90 PRINT "N,E,S,Q=VAI NORD, EST, SUD, OVEST " 

95 PRINT "^INVENTARIO, 6=RIPETI DESCRIZ. P=PRENDI OGGETTO" 
100 PRINT "F=F1NE " 

105 PRINT “ATTENDERE PRE60 !" 

110 REM 

115 REH INIZIALI2ZAZIONE 
120 REM 
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125 OL=19:NL=27:NS=56:LN=4:P$='0000111111101101110':S=1:MX=1 
130 DIM DS(NS,5),MT$(2),MV(2),NV$(KL,2),0(0L),0$(0L) 

135 FOR 1=1 TO NS:FQR Y=1 TO 4:READ DS(X,Y):K=K+DS(X,Y) 

140 NEXT YsDS<X,5)=0:HEXT X 

145 IF K04561 THEN PRIMT 'ERRORE DATA DIREZIONI':END 

150 FOR X=1 TO NLsFOR Y=1 TO 2:READ NV$(X,Y):NEXT Y,X 

155 FOR 1=1 TO OL:READ 0$(X):NEXT X 

160 K=0:F0R X=1 TO OLsREAD 0(X):K=K*0(X):NEXT X 

165 IF K<>262 THEN PRINT 'ERRORE DATA STANZA 066ETTI':END 

170 INPUT 'PREMI RETURN PER INIZIARE ';LN$ 

175 REM 

180 REM BESTIONE INPUT 
185 REM 

190 60SUB 340:60SUB 1455 
195 INPUT *COMANDQ';C$:PRINT 
200 N=N+1 

205 IF C$='QUETZALCOATL' OR C$='HUITZILOPOCHTLI' THEN 1490 

210 IF C$='MICOATL' OR C$='XIPE' OR C$='COATLICUE' THEN 1490 

215 IF LEFT$(C$,9)='M0NTEZUMA' THEN 1530 

220 IF LEN(C$)>1 THEN 265 

225 IF C$=*N* THEN NV (1)=1:NV(2)=1:B0T0 285 

230 IF C$='E' THEN NV <I)=1:NV(2)=2:60T0 285 

235 IF C$='S' THEN NV U)=1:NV(2)=3:60T0 285 

240 IF C$='0 B THEN NV (I)=1:NV(2)=4:60T0 285 

245 IF C$= B 6' THEN 190 

250 IF C$='I' THEN 1265 

255 IF C*= B F B THEN 2540 

260 IF C$='P' THEN NV(I)=5:NV<2)=0:BOTO 915 

265 GQSUB 1640 

270 REM 

275 REM TEST PER SITUAZIONI DIFFICILI 
280 REM 

285 IF NV(1)=0 THEN PRINT 'NON CONOSCO ";NT$(1):60T0 195 

290 IF F(l)=l OR F(l)=2 THEN IF NV(1)=1 THEN BOSUB 1465:G0T0 195 

295 IF F(l)>2 THEN 1595 

300 IF F(3)=2 AND S=29 THEN 1605 

305 IF N>45 THEN IF F(4)<>10 THEN F(4)=F14)+1:PR1NT 'HAI FAME' 
310 IF F<4)=9 THEN 1600 

315 IF S=15 AND NVU)=1 AND F(5)=0 AND NV<2)<>3 THEN 1605 
320 GOTO 790 
325 REM 

330 REM STAMPA DESCRIZIONE 
335 REM 

340 CLS:DS(S,5)=1 

345 IF HINT(S/13)=1 THEN GOSUB 375 

350 IF 1+INT(S/13)=2 THEN 60SUB 440 

355 IF 1+INT(S/13)=3 THEN GOSUB 510 

360 IF 1+INT(S/13)=4 THEN GOSUB 580 

365 IF 1+INT(S/13)=5 THEN 60SUB 650 

370 K=1:6GTQ 695 

375 IF S=1 THEN GOSUB 1840 

380 IF S=2 THEN 60SUB 1855 

385 IF S=3 THEN 60SUB 1860 

390 IF S=4 THEN 60SUB 1865 

395 IF S=5 THEN 60SUB 1870 

400 IF S=6 THEN 60SUB 1885 

405 IF S=7 THEN GOSUB 1900 

410 IF S=8 THEN GOSUB 1915 

415 IF S=9 THEN BOSUB 1930 

420 IF S=10 THEN GOSUB 1955 
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425 IF S=ll 

THEN 

60SUB 

1970 

430 IF S=12 

THEN 

60SUB 

1980 

435 RETURN 




440 IF S=13 

THEN 

1995 


445 IF S=14 

THEN 

2005 


450 IF S=15 

THEN 

2020 


455 IF S=16 

THEN 

2035 


460 IF S=17 

THEN 

2040 


465 IF S=1B 

THEN 

2045 


470 IF S=19 

THEN 

2050 


475 IF S=20 

THEN 

2060 


480 IF S=21 

THEN 

2065 


485 IF S=22 

THEN 

2070 


490 IF S=23 

THEN 

2075 


495 IF S=24 

THEN 

2080 


500 IF S=25 

THEN 

2085 


505 RETURN 




510 IF S=26 

THEN 

6QSUB 

2115 

515 IF S=27 

THEN 

GOSUB 

2120 

520 IF S=28 

THEN 

6QSUB 

2140 

525 IF S=29 

THEN 

GOSUB 

2150 

530 IF S=30 

THEN 

GOSUB 

2160 

535 IF S=31 

THEN 

6QSUB 

2170 

540 IF S=32 

THEN 

GOSUB 

2180 

545 IF S=33 

THEN 

GOSUB 

2190 

550 IF S=34 

THEN 

60SUB 

2200 

555 IF S=35 

THEN 

GOSUB 

2210 

560 IF S=36 

THEN 

GOSUB 

2220 

565 IF S=37 

THEN 

60SUB 

2230 

570 IF S=3B 

THEN 

GOSUB 

2255 

575 RETURN 




580 IF S=39 

THEN 

60SUB 

2265 

585 IF S=40 

THEN 

GOSUB 

2275 

590 IF S=41 

THEN 

60SUB 

2285 

595 IF S=42 

THEN 

GOSUB 

2295 

600 IF S=43 

THEN 

GOSUB 

2310 

605 IF S=44 

THEN 

60SUB 

2335 

610 IF S=45 

THEN 

GOSUB 

2345 

615 IF S=46 

THEN 

GOSUB 

2355 

620 IF S=47 

THEN 

60SUB 

2365 

625 IF S=48 

THEN 

GOSUB 

2355 

630 IF S=49 

THEN 

60SUB 

2355 

635 IF S=50 

THEN 

GOSUB 

2355 

640 IF 8*51 

THEN 

60SUB 

2355 

645 RETURN 




650 IF S=52 

THEN 

GOSUB 

2355 

655 IF S=53 

THEN 

60SUB 

1865 

660 IF S=54 

THEN 

GOSUB 

1865 

665 IF S=55 

THEN 

60SUB 

1865 

670 IF S=56 

THEN 

GOSUB 

1865 

675 RETURN 




680 REH 




685 REH STAMPA 066ETTI 

E USCITE 


690 REH 

695 FOR 2=1 TQ OL 

700 1F K=1 THEN 1F 0(Z)=S THEN PR1NT i COSE INTERESSANTI:*slC=0 
705 60T0 735 

710 TP$=0$(Z):1F RlGHTtCTPf,n<>"/* THEN RETURN 

715 FOR N=LEN(TP$)-1 TO 1 STEP -1 

720 IF HIDKTPM,1)=V THEN TP$=LEFTS <TP$,N-1 ) : RETURN 
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725 NEXT li 
730 RETURN 

735 IF QmOS THEN 745 
740 6QSUB 710:PR1NT TP$ 

745 NEXT Z:PRINT 
750 REH STAMPA USCITE 
755 K=1:FQR Z=1 TQ 4 

760 IF K=1 THEN IF DS<S,Z)<>0 THEN PRINT "USCITE VISIBILI A:":K=0 
765 IF DS(S,Z)<>0 THEN PRINT 0$<Z);" 

770 NEXT Z:PRINT:PRINT:RETURN 
775 REH 

780 REH 6ESTI0NE VERBI 
785 REH 

790 X=NV(1):IF X<2 THEN 1=2 
795 X-INT(X/2) 

800 IF X=1 THEN 60T0 885 
805 IF X=2 THEN 60T0 915 
810 IF X=3 THEN GOTO 985 
815 IF X=4 THEN 60T0 1020 
820 IF X=5 THEN 60T0 1085 
825 IF X=6 THEN 60T0 1115 
830 IF X=7 THEN GOTO 1145 
835 IF X=8 THEN 60T0 1200 
840 IF X=9 THEN 60T0 1240 
845 IF X=10 THEN 60T0 1265 
850 IF X=ìl THEN 60T0 1310 
855 IF X=12 THEN GOTO 1355 
860 IF X=13 THEN GOTO 1430 

865 PRINT "NON HO CAPITO COSA VUOI FARE!!!*:BOTO 195 
870 REH 

875 REH DIREZIONI 
880 REH 

885 IF NV<2)<1 THEN PRINT "DAMMI ANCHE UNA DIREZ10NE":60T0 195 
890 IF DS(S,NV(2))=0 THEN PRINT "NON PUOI ANDARE "sGOTO 195 
895 S=DS(S,NV(2)):60T0 1585 
900 REH 

905 REH PRENDI 
910 REH 

915 IF NV(2)=0 THEN 960 

920 IF 0(NV(2))=-1 THEN 1570 

925 IF 0(NV(2)K>S THEN 1575 

930 IF HID$(P$,NV(2),1)=*0 B THEN 1590 

935 IF IVmNX THEN 1580 

940 0<NV(2))=-1:IV=IV*1 

945 IF NV<2)=9 OR NV(2)=10 OR NV(2)=11 THEN F(3)=2 
950 IF NV(2)=14 AND S=19 THEN PRINT "LADRO!":GOTO 1605 
955 60T0 1565 

960 FOR X=5 TO 19:IF 0(X)=S THEN NV(2)=X:60T0 930 

965 NEXT X:60TG 1590 

970 REH 

975 REH POSA 

980 REH 

985 IF 0(NV(2)X>-1 THEN 1590 
990 0(NV(2M=S:IV=IV-1 

995 IF S=30 AND<0<8)=S OR 0(18)=S) THEN F(3)=1:DS(37,4)=38 

1000 60T0 1565 

1005 REH 

1010 REH HAN6IA 

1015 REH 

1020 IF NV<2)=16 THEN 1045 
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1025 IF NV(2K>14 THEN 1590 

1030 1F 0(14)0-1 THEN PftlNT * NON LE HA1!*:60T0 1590 

1035 PftlNT -BENE! HAI HAN6IAT0, PUOI CONTINUARE LA RICERCA" 

1040 F(4)-10:0(14)-0:60T0 195 

1045 IF 0(5) s -l THEN O(5MO:6OT0 1060 

1050 IF 0(16)=-1 THEN 0(16M0:G0T0 1060 

1055 PRINT -DOVE C’E L’HAI?-:60T0 195 

1060 PRINT -HAI MOLTA FANÉ, E TU OLI DAI BRICIOLE...* 

1065 R=38:F(4)=0:60T0 195 
1070 REH 

1075 REH NUOTO/TUFFO 
1080 REN 

1085 IF S>21 THEN 1590 

1090 PRINT -TI SEI TUFFATO SPLENDIDAHENTE* 

1095 PRINT -PECCATO CHE NON SAI NU0TARE-:6QTQ 1600 
1100 REH 

1105 REH SALTA/ARRAHPICA 
1110 REH 

1115 IF S<>9 OR SOM OR S<)27 THEN 1590 
1120 IF S=6 OR S=8 THEN 1090 

1125 PRINT *TI STAVI ARRAHPICANDO PERO* SEI CADUTO!"sGOTO 1600 
1130 REH 

1135 REH AHHAZZA/UCCUDI 
1140 REH 

1145 IF 0(6)<>-l THEN PRINT 'CON CHE SOSA ?':60T0 195 
1150 IF S*27 OR S=42 THEN PRINT *CI HAI PROVATO...*:60T0 1605 
1155 IF NV(2)<>12 THEN PRINT -CHI VUOI UCCIDERE ?*:60T0 195 
1160 PRINT -HAI UCCISO IL GUERRIERO AZTECO.- 
1165 PRINT -ALCUNI PASSANTI PORTANO VIA IL CORPO - 
1170 Q(12)-0:F(1) S 0 

1175 IF F(6)=0 THEN F(6)=1:0(16)=S:PR1NT "SENTO UN RUHORE...* 

1180 GOTO 195 
1185 REH 
1190 REH LANCIA 
1195 REH 

1200 IF NV(2)<>7 OR S<>25 THEN 985 

1205 IF INT(RND(10))+l<6 THEN 985 

1210 PRINT -FORMIDABILE ! ! HAI FATTO CANESTRO" 

1215 PRINT -TI SEI ACCLAHATO IL BENVENUTO" 

1220 DS(27,2)=28:GQSUB 1725:0(7)=S:GOTO 190 
1225 REH 
1230 REH BEVI 
1235 REH 

1240 IF 0(13)0-1 THEN PRINT -COSA VUOI BERE ?*:GOTO 195 
1245 PRINT -TISENTI ALLE6R0*:6OT0 195 
1250 REH 

1255 REH INVENTARIO 
1260 REH 

1265 CLS:PRINT -CON TE HAI:- 

1270 PRINT FRE(0):NC=0:F0R Z=1 TO OL 

1275 IF 0(Z)=-1 THEN NC=NCd:60SUB 710:PRINT TP* 

1280 NEXT Z 

1285 IF NC=0 THEN PRINT -NIENTE* 

1290 PRINT :60T0 195 
1295 REH 
1300 REH CQHPRA 
1305 REH 

1310 IF 0(5)<)-i AND 0(16)0-1 THEN PRINT "CON C0SA?:60T0 1610 
1315 IF S=15 AND F(5X>1 THEN 60SUB 1615:IV=IV-1:F(5)=1:60TQ 1330 
1320 IF SOM OR 0(14)019 THEN PRINT -COSA VUOI FARE ? B :GOTO 195 
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1325 IF NV(2)=14 THEN PRINT "OK, HAI LE TORTILLAS":0(14)=-1 

1330 IF 0<5)--l THER 0<5)=0:6QT0 195 

1335 IF 0(16)=-i THEH 0<16)=0:60TQ 195 

1340 REM 

1345 REH SCAVA 

1350 REH 

1355 IF S<>47 THEH 1590 

1360 INPUT "CON COSA, LE NANI NUDE";C$ 

1365 IF LEFTÌ(C$,2K>"SI" THEN BOTO 200 

1370 PRINT "HAI APERTO UN BUCO NEL HURO, DA DOVE ENTRA ACQUA:" 

1375 PRINT "TI FANNO USCIRE INSIEME A6LI ALTRI":S=9 
1380 FOR 1=1 TO 2000:NEXT X 

1385 IF F(2)=l THEN F(2)=0:DS(8,2)=0:DS(9,1)=0:DS(12,4)=0:DS(6,3)=0 
1390 FOR X=1 TO OL 

1395 IF 0<X)*-1 THEN 0U)=10:IV=IV-1 
1400 NEXT X 

1405 IF F(3)=2 THEN F<3)=0:0(9)=30:0u0)=30:0(ll)=30 
1410 60T0 190 
1415 REH 

1420 REH SCAPPA/FU66I 
1425 REH 

1430 PRINT "E COKE? NON CI SONO FINESTRE, LE PARETI SONO UMIDE* 

1435 PRINT "E LA PORTA E* DI PIETRA MASSICCIA":60T0 195 
1440 REH 

1445 REH 6UERRIERQ 
1450 REH 

1455 A=INT(RND(10))+1 

1460 IF A<9 OR S<7 OR S=9 OR S=47 THEN RETURN 
1465 PRINT "UN GUERRIERO AZTECO TI SBARRA LA STRADA" 

1470 PRINT "CON PESSIME INTENZI0NI":0(12)=S:F(l)=F(l)4l:RETURN 
1475 REH 

1480 REH PAROLA D’ORDINE 
1485 REH 

1490 IF C$O"QUETZALC0ATL" THEN 1505 

1495 IF S=9 THEN F(2)M:DS(6,3)=24:DS(8,2)=23 

1500 IF S=9 THEN F(2)=1:DS(9,1)=15:DS(12,4)=15:60T0 1510 

1505 PRINT "ONORE A LUI !!!":BOTO 195 

1510 PRINT "SI ABBASSA IL PONTE ELEVAT01Q":6QSUB 1725:60T0 190 

1515 REH 

1520 REH COLUI CHE PARLA 
1525 REH 

1530 IF SOM THEN PRINT "ONORE A LUI !!!":60T0 195 

1535 PRINT "LE NOSTRE DIVINITÀ* SONO: HICOATL, HUITILOPOCHTILI,* 

1540 PRINT "C0ATL1CUE, QUETZALCOATL, XIPE":60T0 195 

1545 REM 

1550 REH HESSA661 
1555 REH 

1560 PRINT "FATTO.":60T0 195 

1565 PRINT "FATTO.":BOTO 195 

1570 PRINT "LO HAI 6IA* *:60T0 195 

1575 PRINT "DOVE LO VEDI ?*:BOTO 195 

1580 PRINT "SEI TROPPO CARICO !*:60T0 195 

1585 PRINT "FATTO.*:60T0 190 

1590 PRINT "NON ESSERE SCIOCCO":60T0 195 

1595 PRINT "SEI HORTO, UCCISO DA UN 6UERRIR0 AZTEC0":60T0 2540 

1600 PRINT "SEI HORTO !":60T0 2540 

1605 PRINT "DUE SOLDATI TI SCORTANO IN PRI6I0NE" 

1610 60SUB 1725:S=47:0<6)=10:60T0 190 

1615 PRINT "TI COSTERÀ* UN SACCHETTO DI CACAO! OK, PA6AT0!" 

1620 RETURN 
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1625 REH 
1630 REH INPUT 
1635 REH 

1640 K=1:NT$U)*"":NT$«2)*"" 

1645 FOR 1*1 TO LEN(C$):K$=HID$<C$,X,1) 

1650 IF K$* B B THEN K=2:60SUB 1705:1F NT$(2X> ,a THEN 1665 
1655 IF **<>■ • THEN NT$<K)=NT$(K)*K$ 

1660 NEXT X 

1665 FOR X=1 TO 2:NV(X)=0:IF NT$m* BB THEN 1695 
1670 FOR Y=1 TO NL:K$=NV$(Y,X) 

1675 IF LEFT$(K$,l)=-t B THEN KÌ=HID*(K$,2> 

1680 IF LEFT$(NT$(X),4)*K$ THEN NV(X)=Y:60TO 1690 
1685 NEXT Y:BOTO 1695 

1690 IF LEFT$<NV$(NVm,X),l)= i t B THEN NVU)=NV<X)-1:G0T0 1690 
1695 NEXT X:IF <NVU)*5 OR NV0)*6) AND NV12X1 THEN 1590 
1700 RETURN 

1705 FOR Y=1 TO NL:IF LEFT$<NT«2),4)=NV$(Y,2) THEN 1720 
1710 NEXT Y 
1715 NT$(2)* ,B 
1720 RETURN 

1725 FOR X=1 TO 1500:NEXT X:RETURN 
1730 REH 

1735 REH DIREZIONI 
1740 REH 
1745 DATA 
1750 DATA 
1755 DATA 
1760 DATA 
1765 DATA 
1770 DATA 
1775 DATA 
1780 DATA 
1785 DATA 
1790 DATA 
1795 DATA 
1800 DATA 
1805 DATA 
1810 DATA 
1815 DATA 
1820 DATA 
1825 REH 
1830 REH DESCRIZIONI 
1835 REH 

1840 PRINT "SEI CAUCKTITLAN, DAVANTI AL LAGO SALATO ZUHFAN60.* 
1845 PRINT *A NORD CI SONO DELLE PALUDI." 

1850 PRINT "UNA SCRITTA SUL TERRENO DICE:DEL CHE":RETURN 
1855 PRINT "SEI PERSO SENZA VIA DI SCAHPO, NELLE PALUDI":RETURN 
1860 PRINT -SEI A ECATEPC, DAVANTI AL LA6Q SALATO TEXCOCO - :RETURN 
1865 PRINT "SEI PERSO IN BEZZO ALLE H0NTA6NE - :RETURN 
1870 PRINT "SEI A TEPEYACAC: IN LONTANANZA SI VEDE IL TEHP10" 
1875 PRINT -UNA SCRITTA SUL TERRENO DICE -.PAROLA: " 

1880 RETURN 

1885 PRINT "SEI SU UNA STRADA SOPRAELEVATA SUL LA60 TEXCOCO 1 
1890 IF F(2)=0 THEN PRINT -ALCUNE PARTI SONO STATE RIHOSSE' 

1895 RETURN 

1900 PRINT "SEI A TLACOPAN, A NORD SI VEDENG ALTRI VILLAGGI" 

1905 PRINT -UNA SCRITTA SUL TERRENO DICE :CREA: B 
1910 RETURN 

1915 PRINT -SEI SU UNA STRADA SOPRAELEVATA - 

1920 IF F(2)=0 THEN PRINT -ALCUNE COSE SONO STATE RIHOSSE" 


2,3,4,0,2,2,4,2,1,0,5,4,4,4,53,1,3,0,6,7,5,0,0,0 
5,8,9,0,0,0,0,7 

0,0,10,7,11,0,11,9,12,10,10,12,0,13,11,0,14,0,12,0 

1,0,13,0,0,16,9,22,19,18,17,15,16,0,0,0,0,0,0,16 

20,21,16,22 

26,21,19,15,0,0,0,19,23,19,15,15 

24,25,22,8,6,26,25,23,24,0,27,23,24,21,20,27,26,0 

15,25,0,29,0,27,31,32,30,28,29,35,0,0 

37,36,29,0,33,0,34,29,0,0,32,36,32,0,0,35,0,34,0 

30,0,33,0,31,0,0,31,0 

37,41,39,0,38,40,0,0,0,0,0,39,44,0,0,38,41,43 

0,0,0,0,0,42 

49,46,41,45,48,50,44,49,49,51,52,44,0,0,0,0,49 

50,50,45,48,46,44,45 

48.52.45.48.52.42.46.52.51.50.51.46.4.55.56.54 

53.56.55.56.3.56.53.54.53.55.54.54 
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1925 RETURN 

1930 PRINT *A COYACAN, CITTA 1 FORTIFICATA* 

1935 IF F(2)=0 THEN PRINT *C’E' UN PONTE LEVATOIO ALZATO* 

1940 IF F(2)=0 THEN PRINT * > PAROLA D’ORDINE <* 

1945 PRINT "UNA SCRITTA SUL TERRENO DICE :LA E* ILs* 

1950 RETURN 

1955 PRINT *SEI A HIXOQUIC DAVANTI AL LA60 D’ACQUA DOLCE CHALCO* 
1960 PRINT *UNA SCRITTA SUL TERRENO DICE :NOHE DIO:* 

1965 RETURN 

1970 PRINT SEI A TLATEN60 (SCRITTA SUL TERRENO DICE : APRE CHE':* 
1975 RETURN 

1980 PRINT "SEI A HEXICALC0N60, VICINO AL TENP10 TOLUHACAN* 

1985 IF F(2)=0 THEN PRINT *A OVEST C’E' UN PONTE INTERROTTO* 

1990 RETURN 

1995 PRINT *SEI NELLA 6RANDE CITTA' DI TEICOCO* 

2000 RETURN 

2005 PRINT "SEI DAVANTI ALL TEMPIO DEL SOLE, A TE0T1HUACAN.* 

2010 PRINT *UNQ STREGONE TI CHIEDE IL NONE DI COLUI CHE PARLA* 
2015 RETURN 

2020 PRINT *SEI A TENGCHTITLAN, DAVANTI ALLA RISCOSSIONE TRIBUTI* 
2025 PRINT *LA CITTA' E' CORE VENEZIA CON CANALI E PASSERELLE* 
2030 RETURN 

2035 PRINT *SEI TENOCHTITLAN*:RETURN 
2040 PRINT *SEI TENOCHTITLAN, DAVANTI AL LA60*:RETURN 
2045 PRINT "SEI TENOCHTITLAN, DAVANTI AL LAGO*:RETURN 
2050 PRINT *SEI TENOCHTITLAN * 

2055 PRINT *UN MERCANTE DI T0RT1LLAS*:RETURN 

2060 PRINT *SEI TENOCHTITLAN *:RETURN 

2065 PRINT *SEI TENOCHTITLAN, DAVANTI AL LAGO*:RETURN 

2070 PRINT *SEI TENOCHTITLAN*:RETURN 

2075 PRINT *SE1 TENOCHTITLAN*:RETURN 

2080 PRINT "SEI TENOCHTITLAN*:RETURN 

2085 PRINT *SE1 NELLA 6RANDE PIAZZA, DAVANTI AL* 

2090 PRINT *6RANDE TEOCALLI, C’E' IL TEMPIO DI QUETZACOATL* 

2095 PRINT *MENTRE DAVANTI A TE C’E' IL SACRO CORTILE DEI GIOCHI* 
2100 PRINT *CON DUE CERCHI DI PIETRA APPESI PERPENDICOLARMENTE* 
2105 PRINT *AL TERRENO SU DUE PARETI DI PIETRA* 

2110 RETURN 

2115 PRINT *SEI TENOCHTITLAN*:RETURN 

2120 PRINT *SEI DAVANTI AL PALAZZO DI HONTEZUHA CON 2 GUERRIERI* 
2125 PRINT *CHE TI SBARRANO L’INGRESSO* 

2130 PRINT *IL PALAZZO E' IMMENSO, LA PIAZZA E ALTO DUE PIANI* 
2135 RETURN 

2140 PRINT "SEI NELL’INGRESSO DEL PALAZZO* 

2145 RETURN 

2150 PRINT *SE1 NEL LATO OVEST DI UN CORRIDOIO* 

2155 RETURN 

2160 PRINT "SEI NELLA CAMERA DEI TRIBUTI* 

2165 RETURN 

2170 PRINT *SE1 IN UNA CAMERA DEL PALAZZO DI MONTEZUMA* 

2175 RETURN 

2180 PRINT *SEI NEL LATO EST DI UN CORRIDOIO* 

2185 RETURN 

2190 PRINT *SE1 NEL TRIBUNALE* 

2195 RETURN 

2200 PRINT "SEI NELLA SCALA DEGLI AMMINISTRATORI* 

2205 RETURN 

2210 PRINT *SEI NEL MAGAZZINO DEI TRIBUTI* 

2215 RETURN 

2220 PRINT "SEI NELLA CAMERA DEGLI OSPITI* 
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222S RETURN 2525 REM STANZE 0G6ETTI 

2230 PRINT B SE1 IN UNA STRANA STANZA DEL PALAZZO DI NONTEZUHA* 2530 DATA 0,0,0,0,10,6,16,5,30,30,30,0,22,19,0,0,36,24,34 
2235 IF F(3)=0 THEN PRINT "A SINISTRA C’E' UNA VASCA VUOTA* 

2240 IF F<3)=1 THEN PRINT *C , E' UNA VASCA PIENA D’ACQUA CHE* 

2245 IF F(3)=1 THEN PRINT *HA FATTO APRIRE UNA PORTA A OVEST* 

2250 RETURN 

2255 PRINT *SEI NEL LATO OVEST DI UN CORRIDOIO” 

2260 RETURN 

2265 PRINT *SEI NELLE SALE DELLE 150 CONCUBINE DI NONTEZUHA* 

2270 RETURN 

2275 PRINT *SE1 NELLE CANERE DELLA H06LIE DI NONTEZUHA* 

2280 RETURN 

2285 PRINT *SEI NEL LATO EST DI UN CORRIDOIO* 

2290 RETURN 

2295 PRINT *SEI NELL’INGRESSO DELLA CAHERA DI NONTEZUHA* 

2300 PRINT ■C’E* UN GUERRIERO DI GUARDIA* 

2305 RETURN 

2310 PRINT *SEI NELLA CAHERA DI NONTEZUHA* 

2315 PRINT * IL 6RANDE PARLATORE TI ACC06LIE CON ONORE* 

2320 PRINT 'DANDOTI IL SUO BELLISSIMO E PREZIOSISSIMO* 

2325 PRINT ^COPRICAPO IN OHAGGIO.* 

2330 PRINT *C0N6RATULAZIONI !!!!!*:60T0 2540 
2335 PRINT *SEI IN UNA CAHERA DEL PALAZZO DI NONTEZUHA* 

2340 RETURN 

2345 PRINT "SEI IN UNA CAHERA DEL PALAZZO DI NONTEZUHA" 

2350 RETURN 

2355 PRINT *SE1 IN UNA CAHERA DEL PALAZZO DI NONTEZUHA* 

2360 RETURN 

2365 PRINT *SEI IN UNA PRIGIONE. PREPARATI AL SACRIFICIO*:RETURN 
2370 REH 

2375 REH VERBI E NONI 
2380 REH 

2385 DATA ■VAI*,*NORD*,*HUOV*,*EST*,*tCORR*,*SUD*,*tCAHH* 

2390 DATA *OVES*,*PREN*,*SACC* 

2395 DATA *P0SA*,*SPAD*,*l6ETT*,*PALL* f •HAN6*,*BI0I* 

2400 DATA MASSA*,*PIET*,HUOT* 

2405 DATA •H0NI*,*ITUFF i ,*BALL*,*ARRA*,*6UER*,*$SALT* 

2410 DATA *BOTT*,*UCCI*,*TORT* 

2415 DATA MAHHA*,*TRIB*,MIRA*,"CACA*,MLANC*,'LUNA* 

2420 DATA *BEVI*,*CERB*,*ITRAC* 

2425 DATA ■DISC*,*lNVE*,**,*H0NT*,**,*C0HP*,**,*tPA6A*,** 

2430 DATA *SCAV*,•*,**,•*,*SCAP*,**,MFU6G*,** 

2435 REH 
2440 REH OGGETTI 
2445 REH 

2450 DATA 'NORD*,*EST*,*SUD*,"OVEST* 

2455 DATA *UN SACCHETTO DI 6RANI DI CACAO/SACCH/* 

2460 DATA "UNA SPADA DI OSSIDANA/SPADA/* 

2465 DATA *UNA PALLA DI 60HNA/PALLA/* 

2470 DATA *UN GIOIELLO D’0RQ/6I0IELL0/* 

2475 DATA "DELLE PIETRE PREZIOSE/PIETRE/* 

2480 DATA 'DEI MONILI D’ORO/HONILI/* 

2485 DATA 'DELLE BALLE DI COTONE/SACCHI/' 

2490 DATA *UN GUERRIERO ATZEC0/6UERR1ER0/* 

2495 DATA *UNA BOTTIGLIA DI OCLTI/BOTTIGILA/* 

2500 DATA 'DELLE TORTILLAS/TORTILLAS/ - 
2505 DATA "TRIBUTI*,"DEI GRANI DI CACAO/CACAO/* 

2510 DATA "UNA LUNA TUTTA D’AR6ENT0/LUNA/* 

2515 DATA *UNA CERBOTTANA D’ORO/CERBOTTANA/* 

2520 DATA *UN ENORME DISCO DI PIETRA SCOLPITO/DISCO/* 


2535 REH ROUTINE DI FINE 6I0C0 

2540 K=0:F0R 1=1 TO NS:K=K*DS(I,5):NEXT X:IC=1NT(ICtlOOO/NS)/IO 
2545 PRINT *HAI VISTO *;K;*Z DELLA AVVENTURA* 

2550 INPUT *UN’ALTRO 6IR0 a ;Kt:IF LEFT$0C$,1)=*S* THEN RUN 
2555 END 
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SONO DISPONIBILI SU CASSETTA I PROGRAMMI 
CONTENUTI NEI NUMERI DELLA RIVISTA 

LASER COMPUTER CLUB 


Abbiamo realizzato per te su cassetta i programmi pubblicati dalla rivista, evitandoti 
cosi noiose digitazioni e permettendoti di utilizzare con maggiore comodità e praticità i 
tuoi programmi. 

Inviaci la cartolina qui allegata e riceverai a casa tua in contrassegno di L. 15.000 (spese 
di spedizione escluse) il programma da te richiesto. 


/ RICHIEDETE LE CASSETTE 
/ DEI PROGRAMMI LASER 



r 





DESIDERO RICEVERE su cassetta e contrassegno a L. 15.000 (escluse spese 
postali), i programmi contenuti nella rivista per il Laser 110-210-310-500 (barrare 
la casella corrispondente al tipo di computer di proprietà). 


Nr. RIVISTA 

VERSIONE PER □ LASER 500 


Nr. RIVISTA 

□ LASER 310-210-110 


Nr. RIVISTA 


MITTENTE: 



Cognome 

Nome 


Età 

Professione 


Via 

Nr. 


CAP 

Città Prov. 


FIRMA 

DATA 


Compilare, ritagliare e spedire ad (Vedi pagina 29) 























/MULTIDipACr 

-TT. „MO AD tiMSÌMÌHJO SCORTI^ 


VI OFFRE FINO AD 


TRIUMPH International 


OLIVETTI President 5.000 


Selettore d’interlinea 
Tasto per incolonnare 
Mensola appoggio per cancel 
bloccaggio / sbloccaggi 


. Custodia 

• Fermaschede 

• Telaio premic 

• Tasto libera r 


• Leva 

















Piccoli 


annunci 


Cerco con estrema urgenza una 
coppia di joystick per Laser 500 in 
buone condizioni e a buon prezzo. 
Per informazioni telefonare allo 
080/569092 (dalle 15 alle 18) o 
scrivere a Pierluigi Dell’Anna - Via 
Fanin, 62 - Modugno (BA). 

Occasione! Vendo computer LA¬ 
SER 500 come nuovo, compresi 
joystick, registratore, più i seguenti 
giochi: Boxe, M. Lander, C. Inva- 
sion, M. Killer, Say Mon; all’ecce¬ 
zionale prezzo di L. 320.000, i gio¬ 
chi li vendo anche separatamen¬ 
te. Per informazioni scrivere o te¬ 
lefonare a: Incardona Salvatore, 
Via Di Stefano, 109 - 90047 Parti- 
nico (BA) - Tel. 091/8782014 

Cerco programmi o giochi per La¬ 
ser 500, soprattutto in linguaggio 
macchina e non protetti. 

Per informazioni telefonare (dopo 
le 18.00) a Pucciarelli Feliciano 
0975/38165 o scrivere: via Loc. 
Ciotte, 84030 Caggiano (SA). 

Cercasi joystick e floppy disk com¬ 
pleto di disk a prezzo disponibile 
per Laser 500. Per informazioni 
chiamare Fotia Vincenzo, corso F. 
Sof. Alessio 167, 89029 Tauriano- 
va (RC), telefono 0966/641380. 


Cerco penna ottica + interfaccia 
+ cassetta dimostrativa, prezzo 
trattabile. 

Scrivere: Donato Scognamiglio, via 
4 Orologi 37, 80056 Ercolano (NA). 

Cerco plotter PP40 + interfaccia 
PI20 in buone condizioni e ad un 
prezzo ragionevole. 

Per accordi telefonare allo (0789) 
292228 o scrivere a Satta Anna, via 
Luna e Sole 19, 07100 Sassari. 

Occasione! Vendo Laser 500 quasi 
nuovo completo di registratore, 
una cassetta con giochi, manuale 
d’uso, borsa trasporto e alcune ri¬ 
viste L.C.C. Lit. 250.000. 

Pileri Vanni, viale Costa Smeralda 
12, 07021 Arzachena (SS). 

Tel. (0789) 82220. 

Cerco programmi Laser 500, pre¬ 
feribilmente giochi. 

Scrivere o telefonare a: SECCI CI¬ 
RO - vico 3° nazionale n° 6 - 
08030 Nurallao (NU) 

Tel. (0782) 815009 

Vendo Laser 500 + registratore 
DR 30, completi di alimentatori, ca¬ 
vetti e manuali + software Paint 
Utility + cassetta di programmi va¬ 
ri. Tutto perfettamente funzionana- 


te. Prezzo affare L. 300.000 tratta¬ 
bili. - Moro Pio, Via G. Pascoli, 3 

- 33078 S. Vito al Tagliamento (PN) 

- Tel. 0434/80627. 

Vendo Laser 310 completo di re¬ 
gistratore e di tutte le riviste e cas¬ 
sette LCC a L. 200.000 trattabili. 
Barbieri Katia, Via Alla Cava, 4 - 
22100 COMO - Tel. 031-542813 

Vendo Laser 210 con registratore 
+ cassetta Illustrazione + libri ap¬ 
plicazione + espansore. Per infor¬ 
mazioni telefonare ore 14.00 tutti 
i giorni al numero 081/8291386 ad 
Antonio De Falco, via Costantino¬ 
poli n. 119 - Piazzola di Nola (NA) 

Amici: causa passaggio a sistema 
superiore vendo il fantastico Laser 
500 con registratore, light pen (con 
relativo programma), interfaccia 
per stampante e vario software il 
tutto a sole L. 300.000 non tratta¬ 
bili. Per informazioni scrivere o te¬ 
lefonare a Scanniffio Paolo, Via P. 
Kolbe, 2 - 20033 DESIO (MI) - Tel. 
0362/636981. Vi aspetto! 


Testo dell'annuncio (massimo 300 caratteri circa) 


Attenzione: gli annunci inviati per questa rubrica, il cui contenuto sarà ritenuto non pubblicabile dalla redazione di LCC, 
saranno respinti a insindacabile giudizio e senza spiegazioni. 

Per motivi pratici si prega di non lasciare comunicazioni o richiedere informazioni (scritte o telefoniche) riguardanti gli an¬ 
nunci inviati. 

Scrivere a macchina. Per esigenze operative, gli annunci non chiaramente leggibili saranno cestinati. 

Spedire a: SOFIN srl - LASER COMPUTER CLUB - P.zza del Popolo, 14 - 22100 COMO 
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Software per il vostro 

LASER 500 



MINE KILLERS I terroristi semi¬ 
nano pericolose mine in un im¬ 
portante porto. 

Voi siete i custodi della tranquil¬ 
lità di migliaia di persone, e del¬ 
la Pace nel paese. 

È necessario eliminare tutte le 
mine dal porto, facendo atten¬ 
zione a non colpire le numero¬ 
se navi che transitano. □ 
14 



SAY-MON Divertente gioco per 
esercitare i vostri riflessi e la vo¬ 
stra memoria. 18 


LASER 500 PAINT UTILITY 

Questo programma consente 
di realizzare qualsiasi disegno, 
in alta risoluzione, con 16 colori 
a disposizione. 

Alcune delle funzioni principali: 

— Disegnare, cancellare, cor¬ 
reggere punto per punto. 

— Colorare un’area con uno dei 
16 colori disponibili. 

— Salvare su nastro il disegno 
fatto. 

— Richiamare da nastro il dise¬ 
gno precedentemente salvato, 
con possibilità di correggerlo e 
salvarlo di nuovo. 

— Inserire un qualsiasi testo nel 
disegno in alta risoluzione. 

I disegni realizzati con questo 
programma potranno essere 
usati in altri programmi, di gio¬ 
co, statistica, o altro. □ 

15 



BOXE (per LASER 500) Incon¬ 
tro di pugilato sui 9 round. Evitare 
di finire spesso al tappeto. Solo 
con joystick. 19 


MOON LANDER La luna è or¬ 
mai diventata una base avan¬ 
zata del pianeta Terra ma ogni 
viaggio verso il satellite ripro¬ 
pone il problema della discesa 
sul suolo lunare, che deve es¬ 
sere eseguito con competenza 
dagli astronauti. 

È necessario evitare gli asteroi¬ 
di che sfecciano numerosi 
nelPoscurità dell’Universo. 
Occorre controllate la velocità 
di impatto, per non distruggere 
il modulo lunare. 

Le manovre non sono semplici, 
a causa della ridotta gravità 
della luna (circa 1/6 di quella 

tprrpctrp^ 

BUONA FORTUNA!!! □ 

16 


CITY INVASION Entusiasman¬ 
te gioco spaziale, con scenario 
in grafica ad alta risoluzione, ed 
ambientazione molto suggesti¬ 
va. 

Gli invasori sono arrivati a Co¬ 
mo!!! 

Il Tempio Voltiano, che conser¬ 
va le più importanti documen¬ 
tazioni dell’attività di Alessan¬ 
dro Volta, è minacciato dagli 
invasori. 

È necessario intervenire tem¬ 
pestivamente con tutti i mezzi a 
disposizione, per difendere il 
tempio, ed il mondo. □ 

17 


NOTA BENE 

Per ordini di importo superiore a L. 40.000 spese di spedizione 
L. 2.000. Per ordine di importo inferiore a L. 40.000. spese di 
spedizione al costo. 


Per ordinare i programmi ritagliare (o fotocopiare) il tagliando, compilar¬ 
lo e spedirlo aH’indirizzo indicato. 


r 


n 


MULTI DI DACT s.r.l. 1/88 

Via Vaneggio, 2 - 22100 COMO (Tel. 031/275088) 

Desidero ricevere i seguenti giochi a L. 15.000 cadauno: 
(indicare i codici) 


□ 01 

□ 02 

□ 03 

□ 04 

□ 05 

□ 06 

□ 07 

□ 08 

□ 09 

□ 10 

□ 11 

□ 12 

□ 13 

□ 14 

□ 15 

□ 16 

□ 17 

□ 18 

□ 19 




per una spesa totale di L. 

Pagherò contrassegno l’ammontare dovuto, più spese postali, al 
ricevimento di quanto ordinato. 

COGNOME 

NOME 

VIA N. 

C.A.P. CITTÀ 



FIRMA 

DATA 


J 






































Nuovi entusiasmanti giochi 


per il vostro LASER 310 



MATHS FUN I Genera diver 
tenti problemi di matematica per 
bambini in età prescolare. So¬ 
no possibili diversi livelli di 
difficoltà. 

01 


CRASH Controlla la tua auto e 
cerca di prendere tutti i tesori 
che incontri sul percorso cer¬ 
cando di evitare le altre automo¬ 
bili. 

02 


MATRIX Permette di eseguire 
calcoli matricali (somma di ma¬ 
trici, moltiplicazioni per un valore 
scalare, moltiplicazione fra ma¬ 
trici). 

03 


COSMIC RESCUE Pericolosa 
missione nel cuore del sistema 
solare meteoritico. Solo i migliori 
sopravvivono e realizzano il sal¬ 
vataggio cosmico. Solo con 
Joysticks. 04 




MATCH BOX Una sfida tra amici 
per scoprire il mistero delle scato¬ 
le magiche. Chi sarà più bravo nel 
comporre le coppie giuste?. Non 
richiede l'uso di Joystick. 010 


POWER LOADER Occorre cari¬ 
care la massima energia dalle 
basi spaziali evitando di essere 
disintegrati dagli scarafaggi 
alieni. 11 


TENNIS Gioco di azione tridi¬ 
mensionale. Si può giocare con¬ 
tro il computer oppure tra due 
giocatori. Utilizzabile sia tastie¬ 
ra sia joystick. 05 


6 IN ONE FUN 6 giochi per 
esercitare la mente. Gare di de¬ 
duzione, giochi di calcolo, indo¬ 
vinelli. Si gioca contro il compu¬ 
ter. 06 




ALIEN Mostri spaziali attacca¬ 
no la terra. Il grande avvoltoio 
cercherà di distruggerti.... 

12 


BOXE Incontro di pugilato sui 
7 round. Evitare di finire spes¬ 
so al tappeto. Solo con joystick. 

13 


CIRCUS La vita dei tuoi amici è 
nelle tue mani. Sono acrobati del 
circo e la loro sicurezza dipende 
dalla tua abilità. Un gioco di azio¬ 
ne in linguaggio macchina. 07 


F - 104 Gioco di azione nei cieli 
alla caccia di aerei nemici. Molto 
veloce, prevede 3 livelli di difficol¬ 
tà. Solo con joystick. 08 























































